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SUMMARY  PAGE 


THE  PROBLEM: 

To  provide  a  status  report  on  the  Computer-Assisted  Program  for 
Diagnosis  of  Chest  Pain.  This  document  will  serve  as  the  basis  for 
a  reference  manual  and  guide  to  the  Chest  Pain  Patient  Management 
System  as  it  develops. 


THE  FINDINGS: 

Presentation  is  made  of  the  general  aspects  of  chest  pain 
diagnosis,  program  capabilities,  computer  operation,  descriptions 
of  program  elements,  programming  flowcharts,  programming  statements 
and  general  information  necessary  for  system  utilization. 


APPLICATION; 

The  information  presented  will  be  of  value  as  a  reference  guide 
to  the  present  system  as  it  evolves  through  addition  of  ECG 
components,  an  updated  database,  and  treatment  and  training  modules 


ADMINISTRATIVE  INFORMATION 

This  report  was  submitted  for  review  in  April  1984  and  approved 
for  publication  on  27  April  1984.  It  is  designated  as 

NAVSUBMEDRSCHLAB  Report  #1019. 


ABSTRACT 


Chest  pain  is  the  presenting  symptom  for  several  very  serious 
illnesses,  some  having  potentially  fatal  outcomes.  In  addition, 
chest  pain  has  been  reported  to  be  one  of  the  most  frequent  causes 
of  medical  evacuation  from  submarines.  The  Naval  Submarine  Medical 
Research  Laboratory  is  developing  programs,  in  the  style  of  the 
computer-assisted  diagnosis  program  for  acute  abdominal  pain,  to 
assist  the  submarine  corpsman  in  the  diagnosis,  triage,  and  management 
of  chest  pain  illness.  The  purpose  of  the  present  report  is  to 
summarize  and  document  the  progress  to  date  on  the  computer-based 
diagnostic  program  for  chest  pain.  The  disorders  considered  are: 
myocardial  infarction,  angina,  pneumonia,  pneumothorax,  and  non¬ 
specific  (non-life-threatening)  chest  pain.  A  very  preliminary 
version  of  a  program  to  predict  outcome  of  M.I.  (myocardial  infarction) 
is  also  presented. 

As  it  stands,  the  chest  pain  diagnostic/prognostic  program 
described  here  is  not  ready  for  clinical  use.  Revision  of  both 
parts  of  the  program  to  incorporate  ECG  measures  and  recent 
findings  regarding  the  indicant-disease  relationships  is  in  progress. 
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SECTION  1  -  INTRODUCTION 


Medical  evacuation  from  a  patrolling  nuclear  submarine  is  costly 
in  terms  of  risk  to  the  patient,  the  expense  of  evacuation,  and  the 
compromise  to  the  mission  of  the  submarine.  The  medical 
responsibilities  are  borne  by  the  Independent  Duty  (8402)  Corpsman 
who  must  independently  diagnose  and  manage  any  illness  which  presents 
during  patrol.  This  includes  making  recommendations  regarding 
evacuation  to  a  shore-based  facility.  His  diagnostic  task  is 
complicated  by  mission  constraints  which  often  prevent  communication 
with  shore-based  medical  facilities  and  by  the  limited  medical 
diagnostic  equipment  aboard  nuclear  submarines;  lacking,  for  example. 
X-ray  facilities  as  well  as  many  laboratory  tests  normally  relied  upon 
in  the  hospital  or  dispensary  setting. 

Chest  pain  is  the  presenting  symptom  for  several  very  serious 
illnesses,  some  having  potentially  fatal  outcomes.  In  addition, 
chest  pain  has  been  reported  to  be  one  of  the  most  frequent  causes  of 
medical  evacuation  from  submarines.  The  Naval  Submarine  Medical 
Research  Laboratory  is  developing  programs  to  assist  the  submarine 
corpsman  in  the  diagnosis,  triage,  and  management  of  chest  pain 
illness.  A  program,  in  the  style  of  the  computer-assisted  diagnosis 
program  for  acute  abdominal  pain  (Arthur,  NSMRL  Report  #974) ,  is 
under  development.  The  purpose  of  the  present  report  is  to  summarize 
and  document  the  progress  to  date  on  the  computer-based  diagnostic 
program  for  chest  pain. 

As  it  stands,  the  chest  pain  diagnostic/prognostic  program 
described  here  is  not  ready  for  clinical  use.  Revision  of  both 
parts  of  the  program  to  incorporate  ECG  measures  and  recent  findings 
regarding  the  indicant-disease  relationships  is  in  progress. 
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SECTION  2  -  THE  DIAGNOSTIC  PROGRAM 


2 . 1  INTRODUCTION 


To  date,  there  is  one  component  of  the  computer-assisted  diagnosis/ 
management  program  for  chest  pain,  the  diagnostic/prognostic  program. 

This  section  will  detail  the  function  and  use  of  this  program. 

To  avoid  redundancies,  the  reader  is  directed  to  NSMRL  report  #974: 
Computer-assisted  Diagnosis  Program  for  Acute  Abdominal  Pain  by  LCDR 
Donald  C.  Arthur,  MC ,  USN,  which  contains  an  excellent  guide  to  basic 
computer  interaction  in  section  3-5. 

Since  the  chest  pain  program  is  patterned  after  the  abdominal  pain 
program,  all  of  the  cautions  regarding  the  importance  of  accurate  data 
collection  and  precedence  of  corpsman  judgment  apply  to  this  program 
as  well. 

Inserting  the  tape  and  pressing  'AUTOLOAD’  will  load  the  introductory 
page  (FIGURE  2-1} .  This  page  will  remain  on  the  CRT  screen  while  the 
diagnostic  program  is  loaded  into  the  computer  memory. 


FIGURE  2-1 


- —7 

SUBMARINE  CORPSMAN- 

COMPUTER-ASSISTED  DIAGNOSIS  PROGRAM 

■  FOR 

CHEST  PAIN 

_ ^ 

Developed  by." 

NAUftL  SUSMflRIHE  (lEOICflL  RESEARCH  LABORATORY 
Sox  980  SUBASEt  HLOH 

GROTOM,  CONNECTICUT  063<t9 
Phone:  <203)  <*49'3668|  4894 

Autovon  241-3668)  4894 
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After  the  diagnostic  program  is  loaded,  the  initial  choice  page  will 
be  displayed  (FIGURE  2-2) , 


FIGURE  2-2 


PROGRfltt  TO  AtO  IN  DIAGNOSIS  OF  ACUTE  CHEST  PAIN 


OPTIONS...  1.  To  set  DEFINITIONS  of  datasheet  i tens 

2.  To  occess  a  TREATMENT  PROGRAM 

3.  To  access  the  TRAINING  PROGRAM 

4.  To  go  directly  to  nakiT^g  a  Mi^GNOSIS 


option: 


Selection  of  either  the  TREATMENT  PROGRAM  or  the  TRAINING  PROGRAM  will 
yield  an  explanation  that  these  programs  have  not  yet  been  developed  and 
return  the  user  to  the  initial  choice  page. 

Selection  option  1,  the  DEFINITIONS  choice,  will  yield  a  list  of  the 
symptom  cateogires  included  in  the  diagnostic  program.  The  user  selects 
a  definition,  enters  the  corresponding  number  and  then  presses  'RETURN'  to 
have  the  definition  displayed.  See  Section  2.2  for  the  definitions. 


FIGURE  2-3 


PROGRAM  TO  AID  IN  DIAGNOSIS  OF  ACUTE  CHEST  PAIN 


1.  DURATION  OF  PAIN 

2.  ONSET  OF  PAIN 

3.  TIME  COURSE 

4.  SITE  OF  PAIN 

5.  RADIATION 

6.  NUMBNESS 

7.  SEUERITY 

8.  PROGRESS 

9.  AGGRAUT.  FACTORS 

10.  RELIEU.  FACTORS 

11.  DYSPNEA 

12.  COUGH 

13.  NAUSEA 

14.  UOMITING 

15.  APPETITE 

16.  BOMELS 


17.  PR£U.  CHEST  PAIN 

18.  PREM.  ILLNESS 

19.  PREU.  SURGERY 

20.  TEMPERATURE 

21.  PULSE 

22.  Blood  pressure 

23.  mood 

24.  COLOR 

25.  SWEATING 

26.  SHIUERIHC 

27.  J.U.P. 

28.  RE3P.  MOUEMENT 

29.  HEART  SOUNDS 
38.  PERCUSSION 

31.  CHEST  SOUNDS 

32.  BODY  BUILD 


WHICH  DEFINITION  WOULD  YOU  LIKE  : 
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When  the  user  proceeds  to  the  diagnostic  program  (Option  4,  FIGURE 
2-2),  two  display  pages  will  give  brief  explanations  regarding  data  entry 
(FIGURE  2-4)  and  interpretation  of  diagnostic  probabilities  (FIGURE  2-5) . 


FIGURE  2-4 


PROGRAM  TO  AID  IN  DIAGNOSIS  OF  ACUTE  CHEST  PAIN 


REMEMBER...  K  Use  DATASHEETS  uhen  etiteriiig  data. 

2.  Enter  infor«ation  by  CODE  HUMBER. 

3.  FoHou  each  code  nunber  uith  RETURN. 

4.  RE'EHTER  codes  to  erase. 

5.  INPUT  CHANGES  can  be  node  at  the  END. 
S.  Press  RETURN  to  30  on  to  next  paae. 


Press  RETURN  to  continue. 


FIGURE  2-5 


PROCRfltI  TO  RIO  IH  OlflCHOSIS  OF  ACUTE  CHEST  PAIN 


The  conputer-assisted  diasnosis  program  cot)  aid  the  CorpsHOP  iti 
differentiating  illnesses  which  represent  both  the  most  copinon  and  Host 
serioas  causes  of  acute  chest  pain. 

The  5  illnesses  which  are  considered  by  the  coMputer  are  MYOCARDIAL 
INFARCTION,  ANGINA,  NON-SPECIFIC  CHEST  PAIN,  PNEUMONIA  AND  PNEUMOTHORAX. 
Non-specific  chest  pain  is  intended  to  include  those  cases  which  are  non 
-surgical,  not  life-threatening,  and,  therefore,  not  reasons  tor  evac¬ 
uation. 

In  addition  to  diagnosis,  the  chest  pain  conputer  progran  provides 
probabilities  for  the  occurrence  of  3  classes  of  post  MI  co«pI ications. 
These  are:  NO  PROBLEMS,  ARRYTHMIA,  and  PUMP  FAILURE,  It  also  predicts 
the  likelihood  of  LIFE/'OEATH  post  MI. 

IMPORTANT:  Supplenental  progruMS  for  the  prediction  of  cowpl ications 
and  the  prediction  of  life/death  are  used  only  with  cases  of  MI. 

THE  CORPSMAN'S  JUDGMENT  MUST  TAKE  PRECEDENCE' when  any  doubt  exists. 
The  coHputer  does  not  have  the  capability  to  think  or  Make  the  sub¬ 
jective  evalations  which  are  so  inportant  in  Medical  diagnosis. 

Press  RETURN  to  continue. 


The  user  will  then  be  given  the  option  of  reviewing  the  last  case. 
This  option  is  provided  as  an  aid  to  memory  when  the  course  of  disease  in 
a  patient  is  being  followed  over  time.  The  simulation  option  is  a  self- 
instruction  program  (FIGURE  2-6) . 
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FIGURE  2-6 


PROCRflH  TO  ftIO  IN  DIftGNOSIS  OF  ACUTE  CHEST  PftlH 


UOULO  YOU  LIKE  TO  REUIEH  THE  LAST  CASE? 
<V  or  N)  :  N 


IS  THIS  CASE  A  SIMULATION  ? 
<V  or  N)  :  H 


The  program  then  requests  some  preliminary  information  (FIGURE  2-7) . 

SOCIAL  SECURITY  NUMBER:  the  entry  must  be  11  characters  including 

spaces  or  dashes  between  numbers  as  shown 
below. 

TIME  AND  DATE:  the  time  and  date  must  be  entered  in  the  spaces  marked" 

on  the  display.  For  example:  _ /  _  _  _  should 

look  like  1400/  03  Nov  83  after  data  entry. 

AGE:  enter  the  patient's  age.  Only  ages  in  the  range  10  -  99  are 

accepted  by  the  program.  The  data  base  for  submarine  use  applies 
only  to  the  ages  17  -  60. 

FIGURE  2-7 


Enter  Patient  SSH:  123-45-678? 

Enter  Tine/Ody  Month  Year;  iBBfi  r  30  QCI  83 
Enter  Patient  ACE:  37 
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Once  the  preliminary  data  have  been  entered,  the  computer  program 
sequentially  displays  each  of  the  7  data  pages.  FIGURES  2-8  through 
2-14  present  the  pages  with  sample  entries.  To  complete  the  pages,  those 
numbers  of  the  data  sheet  items  recorded  during  the  patient  examination  are 
entered  on  each  page  as  re-presented  on  the  computer  display.  After  a 
number  is  entered  and  'RETURN'  pressed,  the  symptom  is  shown  as  an  "input 
data  code"  and  circled  on  the  screen.  If  a  symptom  number  is  entered  in 
error,  re-enter  the  number  and  it  will  be  'X-ed'  out,  as  in  FIGURE  2-8, 
symptom  10,  and  deleted  from  memory.  When  all  desired  entries  have  been 
made  on  a  page,  pressing  'RETURN'  one  more  time  will  erase  the  screen 
and  display  the  next  page. 


FIGURE  2-8 


DURATION  OF  PAIN: 

<1HR _ (5) 

1-2HR _ 


2-4HR _ <7> 


4-12HR_ 


>12HR _ <9> 


ONSET  OF  pain: 

SUDDEN...  GRADUAL..I(11>J 


TIME  COURSE  OF  PAIN; 
CONTINUOUS..  40) 
INTERMITTENT, <13) 


RADIATION: 

YES . 4^5  MO . (15* 


INPUT  DATA 

CODES: 

(re-enter  cocoes  to  delete) 

8 

le 

10  -X 

u 

12 

14 

If  the  display  contains  diagrams,  as  in  FIGURE  2-9,  the  appropriate 
areas  are  filled-in  after  the  numbers  are  entered. 


FIGURE  2-9 


INPUT  DATA 

codes: 

(re-enter  codes  to  de1et€> 

19 

25 

26 

CAUTION;  striking  the  'RETURN'  key  two  or  more  times  in  succession  at 
any  time  will  cause  the  computer  program  to  step  through  a  corresponding 
number  of  displays.  The  program  must  be  restarted  to  recover  from  that 
error. 


FIGURE  2-10 


HUHBNESS: 

YES 

<30) 

NO 

SEVERITY  OF 
MODERATE.. 

PAIN>«-». 

- - 

SEVERE _ 

_ (33) 

PROGRESS: 

BETTER 

<34) 

HORSE  _ 

-„4<^ 

AGGRAVATING  FACTQB»«w 
MOVEMENT _ 4^36)} 

COUGH.... 

BREATHING. 

SITTING 

<39) 

OTHER _ 

NONE 

..<41> 

RELIEVING  FACTORS: 
NITRO  <42) 

REST 

_ <43) 

WALKING... 

..<44.) 

OTHER... 

<45> 

NONE 

...J0) 

INPUT  DATA 

CODES: 

(re-enter  codes  to  delete) 

31 

32 

35 

36 

37 

38  40  46 

FIGURE  2-11  OTHER  SYMPTOMS 


DYSPNEA; 

NO _ 

<47> 

THIS  ILLNESSjJ^ 

HReiTURL....t49> 

cough; 

NO  . 

(50) 

THIS  ILLNESSJ^I^ 

HABITUAI _ C52) 

NAUSEA: 

YES _ 

(53) 

NO 

vomiting: 

YES 

_ <55) 

NO  . 

APPETITE: 

NORMAL. 

. -£0 

DECREASED _ (58) 

BOWELS; 

NORMAL. 

d) 

t 

I 

I 

COKSTIPATED..(60> 

DIARRHEA... .(61) 

INPUT  data 

48 

CODES: 

51 

54  56  57 

(re-enter  codes  to  delete) 

59 

The  program  has  been  designed  to  minimize  the  effects  of  keyboard 
errors  by  requiring  the  input  to  conform  to  the  anticipated  format  and 
content  of  the  information  requested.  When  the  input  is  requested  in  the 
form  of  a  'Y'  or  'N'  reply,  typing  any  other  character  or  number,  or  more 
than  one  character,  will  elicit  another  request  for  the  appropriate  input. 
The  erroneous  entries  are  discarded  by  the  program. 
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FIGURE  2-12 


PAST  HISTORY 


PREVIOUS  CHEST  PflIH: 

YES _ (62)  NO 


PREUIOUS  CftROIO-RESPIRATORY  lUUMESS:  N. 

YES _ (64)  NO _ Resy 


PREUIOUS  HfiJOR  SURGERY; 
YES _ (66) 


UITflL  SIGNS 


TEMPERATURE  PULSE 


BLOOD  PRESSURE 


<98.6>«*4. 

98. 6-108. aREsy 
100.3-102.._7W 
>102..,(71) 


<60>WL 

60-001733 

81-100l>m 

>100  (75) 


systolic 

100 
121 

141-160  (79) 
)160_(80> 


Uiastol ic 

Pi-eelsl)! 

81-90_>^ 

91-100_<84) 

>100.(85) 


'  INPUT  DATA  COOES: 

63  65 


67 


69 


(re-enter  codes  to  delete) 
77  82 


Each  number  entered  must  be  one  of  those  displayed  on  the  portion  of 
the  data  sheet  represented  on  the  computer  screen.  Typing  any  other  number 
will  produce  a  request  for  one' from  the  set  on  the  screen.  For  example, 
the  entry  889  shown  in  FIGURE  2-13  resulted  in  the  error  message  shown  at 
the  bottom  of  the  figure. 


FIGURE  2-13 


mood: 

NORMAL. ...(86) 


ANXiaUS,...J(87a 


DISTRESSED. (88) 


COLOR:  ,  , 

NORMAL _ 1(893 


PALE. 


.(90) 


flushed _ (91 >  CYAN0TIC._C92) 


GENERAL  EXAMINATION 


SWEATING: 

YES _ 

...(93) 

SHIUERING: 

YES _ 

_ (95) 

JUGULAR  UEN0UV**»V?E: 
H0RMAL...Ij9^ 

RESPIRATORY 

nOPHlCNT: 

NORMAL _ 1(993 


NO _ 

NO _ j(^ 

RAISED _ (98) 

ABNORMAI _ (100) 


INPUT  DATA  codes:  (re-enter  codes  to  delete) 

87  099  89  94  96  97  99 

ERROR;  THE  DATA  CODE  ENTERED  IS  NOT  ON  THIS  PAGE!  PLEASE  RE-ENTER! 


NOTE;  The  kinds  of  input  errors  detected  by  the  program  do  not  affect 
its  computations  in  any  way;  those  numbers  are  discarded  by  the  computer 
before  it  requests  re-entry  of  a  data  item.  WARNING  -  Errors  in  the  orig¬ 
inal  record  or  those  made  in  transcribing  that  record  through  the  keyboard 
are  not  detected  by  the  program.  The  program  accepts  any  number  on  the 
screen. 
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FIGURE  2-14 


GENERflC  EXftHlKflTIOH  (con^t) 


HEART  SOUHDS>— S 
N0RNftL„^8y 

PERCUSSION:  >*-s 
HOR«AL_.D03) 

CHEST  SQUHOS: 

HORHfiL._<106) 


SCOT: 

<50 _ <110> 


ABNOR«AL..(100) 

MILL _ (leo 

RHONCH1.,.(107) 

51-100 _ (111) 


HVPER- 

RESOHAHT.,.  <trt5' 

RALES _ 

101-200._.<lt2> 


DECREASED.. 1 109) 

>200 _ _ _ (113> 


INPUT  DATA 

CODES; 

(re-enter  codes  to  deleteJ 

101 

103 

108 

When  the  'RETURN'  is  presse<l  after  completion  of  the  7th  page  of  data 
input,  the  program  will  ask  the  user  to  enter  his  preliminary  diagnosis 
(FIGURE  2-15)  . 


FIGURE  2-15 


1.  MYOCARDIAL  INFARCT ICH 

2.  angina 

3.  NON-SPECIFIC  CHEST  PAIN 
<t.  PNEUMONIA 

5.  PNEUMONTHORAX 

6.  OTHER 

ENTER  THE  NUMBER  OF  YOUR  PRELIMINARY  DIAGNOSIS  :  3 


At  this  tine»  the  conputci — generated  probabilities  DO  HOT  AGREE  with 
sour  prelinitiary  ciiaaiiosis.  However,  as  of  yet,  there  ore  no  speciFic 
eategories  which  would  di f Fcrcntiote  your  prelininary  diagnosis  fron 
the  current  progran-generated  diagnosis. 


MOULD  YOU  LIKE  TO  MAKE  ANY  CHANCES?  <Y  or  N>  : 


After  the  user's  preliminary  diagnosis  has  been  entered,  the  program 
compares  it  with  the  diagnosis  found  most  probable  by  the  system.  The 
program  then  tells  the  user  whether  the  diagnoses  agree  or  not.  If  the 
diagnoses  are  the  same,  keying  'RETURN'  directs  the  program  to  construct 
and  display  the  Case  Summary  Page.  If  they  are  not  the  same,  the  user  may 
go  on  as  though  the  diagnoses  agreed,  or  he  may  return  to  any  earlier 
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point  in  the  diagnostic  process.  In  the  abdominal  pain  program, 
indicants  that  may  differentiate  between  the  Corpsman's  diagnosis  and 
the  computer's  are  named.  That  aid  will  be  built  into  future  versions  of 
e  chest  pain  program.  The  alternatives  include  revision  of  previous 
entries  by  responding  Y  to  the  prompt,  "WOULD  YOU  LIKE  TO  MAKE  ANY  CHANGES. 
If  the  user  selects  'OTHER'  as  his  preliminary  diagnosis,  the  program 
merely  states  that  it  does  not  consider  any  diagnosis  other  than  those 
listed  (in  FIGURE  2-15) . 

FIGURE  2—16  presents  the  Case  Summary  Page  for  the  symptoms  entered 
in  FIGURES  2-8  through  2-14.  The  Case  Summary  Page  lists  the  HISTORY  and 
PHYSICAL  EXAM  items  in  separate  columns  so  that  the  user  may  review  his 
entries  for  accuracy  one  more  time.  The  probabilities  of  the  5  diagnoses 
to  each  other  are  shown  below  the  indicants  calculated  as 
percentages.  In  addition,  a  bar  graph  displays  the  percentages  for  easy 
visualization  of  the  program's  findings.  The  time,  date  and  location 
(unit  name)  of  the  examination,  the  patient's  SSN  and  age  are  shown  at  ■ 
the  top  of  the  page.  This  form  can  be  used  as  an  entry  in  the  patient's 
health  record  with  addition  of  the  patient's  name,  the  practitioner's  name 
and  signature,  and  the  designation  'SF-600’.  However,  it  must  be 
reproduced  on  a  medium  more  stable  than  the  product  of  the  Tektronix 
hard  copy  unit.  The  latter  darkens  over  time,  particularly  if  exposed 
to  light. 


FIGURE  2-16 


1008  30  OCT  83  PSTIEMT  SSH:  123-45-6789 

N0MSUBWEORSCHL08 _ ftCE!  37 _ 


HISTORY: 

fiCE  30-39 
PURflTION  4-12HR 
ONSET  CRfiPUBL 
CONTINUOUS  PRIN 
RfiPIftTION  YES 
SITE  RT.  SIDE 
RflPIBTION  TO  BPCK 
R80IBTION  TO  SHOUUPER 
NO  NUH5HESS 
PflIH  NOPERBTE 
PROGRESS  NOW  HORSE 
HOUENENT  RGGRRURTES 
COUGH  ftCGRRURTES 
BREATHING  ACGRRURTES 
RGGRRURTED  BY  OTHER 
NOTHING  RELIEUES 
PYSPNER  THIS  ILLNESS 
COUGH  THIS  ILLNESS 
NO  NAUSEA 
NO  UONITING 
APPETITE  NORMAL 
BOUELS  NORMAL 
NO  PREUIOUS  CHEST  PAIN 
HQ  PREUIOUS  ILLNESS 
NO  PREUIOUS  SURGERY 


PHYSICAL  EXAM; 

TEMP  98.6-100.2 
PULSE  60-80 
systolic  BP  100-120 
PlASrOLIC  BP  71-80 
noop  ANXIOUS 
color  NORMAL 
NO  sweating 
NO  SHIUERING 
JUP  NORMAL 
RESP.  MOU.  NORMAL 
HEART  SOUNDS  NORMAL 
PERCUSSION  NORMAL 
CHEST  SOUNDS  RALES 


0.3:: 

23.2-< 

75. 9:-: 

M.I. 

ANGINA 

NOHSCP 

PNEUMO 

THORAX 

NEXT  INTERACTION 


1.  Input  Data 

2.  Another  Diagnosis 

3.  Display  TreatHent 
Obtain  Definition 

5.  End  interaction 

CHOICE; 


The  Case  Summary  Page  presents  5  or  6  options  for  the  next  interaction 
to  the  user.  The  options  are  to  change  some  of  the  input  for  the  present 
case  and  request  another  calculation,  to  enter  a  new  case,  to  access  the 
treatment  program,  to  access  the  item  definitions,  to  enter  the  cardiac 
prognosis  program,  or  to  end  the  computer  interaction.  In  its  present 
form,  the  cardiac  prognosis  program  can  be  consulted  only  if  the  computer 
ranks  Myocardial  Infarction  as  the  most  probable  diagnosis. 


jf  ^j-j0  usQr  chooses  to  alter  some  of  the  data  entries  for  the  present 
case,  FIGURE  2-17  is  presented.  This  option  allows  deletion  of  entries  by 
entry  of  their  numbers,  as  in  the  main  program,  and  entry  of  additional 
numbers  to  replace  those  deleted  or  to  add  to  the  information  previously 
supplied  to  the  program.  Items  added  should,  of  course,  be  consistent 
with  those  already  available  to  the  program. ■  As  before,  keying  'RETURN* 
after  the  last  item  has  been  entered  into  the  computer  results  in  the 
construction  and  display  of  the  new  Case  Symmary  Page.  FIGURE  2-17 
illustrates  the  input  change  routine  with  some  sample  entries. 


FIGURE  2-17 


NEH  INPUT  : 

deletions  : 

15  RADIATION  NO 

33  PAIN  SEOERE 

14  RADIATION  YES 

25  RADIATION  10  BACK 

26  RADIATION  TO  SHOULDER 

32  PAIN  MODERATE 

LIMIT;  25  EHTERIES  ! 

INPUT  DATA  COOESI  u'e-enter  cod«s  to 

15  14  -X  25  "X  26. 'X  32  -.X  33 
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If  the  PROGNOSIS  program  option  is  chosen,  the  computer  calculates 
probabilities  for  three  kinds  of  cardiac  problems.  The  prognostic 
program  uses  a  new  database  to  calculate  probabilities  for  cardiac 
problems  based  on  the  set  of  symptoms  already  entered  for  the  patient. 
Once  the  probabilities  have  been  computed,  the  display  will  present 
the  symptom  set  and  probabilities  for:  NO  PROBLEMS,  ARRHYTHMIA,  and 
PUMP  FAILURE  (FIGURE  2-18) . 


FIGURE  2-18 
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history; 

PHYSICAL  exam: 

AGE  30-39 

TEMP  98.6-100.2 

duration  1-2NR 

PULSE  81-100 

ONSET  SUDDEN 

SYSTOLIC  BP  121-140 

CONTINUOUS  PAU 

DIASTOLIC  BP  81-90 

RADIATION  HO 

MOOD  DISTRESSED 

SITE  CENTRAL 

COLOR  PALE 

NO  NUMBNESS 

sweating  present 

PAIN  SEUERE 

NO  SHIUERING 

PROGRESS  HOH  HORSE 

JUP  NORKAL 

SITTING  AGCRAUATES 

RESP.  MOU.  NORMAL 

HALKING  RELICUES 

HEART  SOUNDS  NORtlAL 

NO  DYSPNEA 

PERCUSSION  NORMAL 

NO  COUGN 

NAUSEA  PRESENT 

NO  UOMITING 

APPETITE  DECREASED 
CONSTIPATION  PRESENT 

NO  PREUIOUS  CHEST  PAIN 
NO  PREUIOUS  ILLNESS 

NO  PREUIOUS  SURGERY 

CHEST  SOUNDS  NORMAL 

98. 3P. 

0 

.02 

1.62 

NO  PROBLEMS 

ARRYTHMIA 

PUMP  FAILURE 

Prffs  Return  for  LIFE/OEATN  Probabi U ti«4 


NP  AR  PF 


COOES  CNPra^R  -PP) 


NP  =  Ho  Problems 
AR  s  ArrythHio 
PF  ®  Puhp  Fas'! arc 


Also  included  as  part  of  the  PROGNOSIS  program  are  probabilities 
for  the  likelihood  that  the  patient  will  either  live  or  die,  even  if 
in  a  hospital  setting.  For  this  section  of  the  prognosis  program,  the 
computer  will  ask  for  additional  data  input  (FIGURE  2-19) . 


FIGURE  2-19 


LlFE'-DEftTN  ProbQbil  lUes: 


BODY  BUILP: 

NORMAL _ <  1) 


OBESE.. 


CORSPNRN  OPINION  OF  PATIENT'S; 
GOOD _ <3)  DUBIOUS,.! 


ITIOH: 

POOR. 


© 


DURATION  OF  PMffSP'^ = 

<6NR _ I^STJ  6-2^NR _ <7) 


>e4HR _ <8) 


INPUT  ORTA  CODES: 

2  4  6  4  5 


(.re-enter  to  oeiete.> 
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The  program  calculates  'LIFE/DEATH'  probabilities  using  a  subset 
of  symptoms  entered  for  the  patient.  FIGURE  2-20  illustrates  the 
Case  Summary  Page  for  the  'LIFE/DEATH'  section  of  the  prognosis 
program.  Starred  symptoms  are  ones  which  contribute  to  the  calculation 
of  the  probabilities. 


FIGURE  2  -  20  1860  30  OCT  as  PATIEHT  SSN:  123-45-6769 

LIFE/PEflTH  PROBftBlLlTlES  (Ml  OTilij)  TftGE:  37 


LI 

OIE  LIKE 

NEXT  INTERACTION 

1.  Obtain  definition 
Z.  Display  treatnent 

3.  ftnother  diagnosis 

4.  End  interaction 

CHOICE: 


Following  the  presentation  of  the  'LIFE/DEATH'  probabilities,  the 
user  is  given  four  options.  They  are  to  obtain  a  symptom  definition, 
display  treatment  information,  run  a  new  case,  or  end  the  interaction 
with  the  computer. 


HISTORY: 

*ACE  30-39 

DURATION  1-2HR 

ONSET  SUDDEN 

CONTINUOUS  PAIN 
RADIATION  NO 

SITE  CENTRAL 

NO  NUMBNESS 

PAIN  SEUERE 

PROGRESS  HON  UORSE 
SITTING  AGGRAUATES 
HALKIHC  RELIEUES 

»H0  dyspnea 

«H0  COUGH 

NAUSEA  PRESENT 

HO  UONITING 

APPETITE  DECREASED 
CONSTIPATION  PRESENT 
«N0  PREUIOUS  CHEST  PAIN 
HO  PREUIOUS  ILLNESS 

HQ  PREUIOUS  SURGERY 
tOBESE  BUILD 
(POOR  CONDITION 
tDURATlON-refined  <6HR 

PHYSICAL  exam: 

TEMP  98.6-100.2 
tPULSE  81-100 
♦SYSTOLIC  BP  121-140 
DIASTOLIC  BP  81-90 

HOOD  distressed 
♦COLOR  PALE 

SWEATING  PRESENT 

NO  SNlUERING 
♦JUP  NORMAL 

RESP.  HOU.  NORMAL 

HEART  SOUNDS  NORMAL 
PERCUSSION  NORMAL 
♦CHEST  SOUNDS  NORMAL 

28.6''; 

DIE  EUEN  IN  HOSPITAL 

71. 4*^ 

Ltue  IH  HOSPITAL 
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2.2  DATA  SHEET  DEFINITIONS 


The  following  are  definitions  of  chest  pain  signs  and  symptoms. 
The  definitions  are  accessed  through  the  chest  pain  DIAGNOSIS  program. 


DURATION  OF  PAIN  definition: 

<1HR  (5)  1-2HR  {6)  2-4HR  {7)  4-12HR  (8)  >12HR  (9) 

Here  we're  interested  in  how  long  since  the  pain  began  for  this 
episode  of  illness.  Record  in  hours  and  minutes. 


ONSET  OF  PAIN  definition: 

SUDDEN  (10)  GRADUAL  (11) 

Determine  how  long  it  took  the  pain  to  develop  fully.  If  it 
took  less  than  2  minutes,  write  SUDDEN;  if  greater  than  2  minutes, 
write  GRADUAL. 


TIME  COURSE  OF  PAIN  definition: 

CONTINUOUS  (12)  INTERMITTENT  (13) 

If  your  patient  has  had  times  when  he  has  been  free  of  pain  since 
it  started/  circle  INTERMITTENT.  Otherwise  circle  CONTINUOUS. 


SITE  OF  PAIN  definition: 


SUBSTERNAL  (16)  ACROSS  (17) 

RIGHT  SIDE  (19)  EPIGASTRIC  (20) 


LEFT  SIDE  (18) 
OTHER  (21) 


This  is  sometimes  hard  to  express.  Look  at  the  choices  on  your 
data  sheet,  then  get  your  patient  to  bare  his  chest  and  show  you 
with  one  finger  where  his  pain  is.  Choose  the  data  sheet  category 
which  fits  best. 


RADIATION  OF  PAIN  definition: 


YES 

(14) 

NO 

(15) 

LEFT  ARM 

(22) 

RIGHT  ARM 

(23) 

BOTH  ARMS 

(24) 

BACK 

(25 

SHOULDER 

(26) 

NECK 

(27) 

JAW 

(28) 

OTHER 

(29 

Radiation  is  pain  spreading  from  a  primary  site  (here,  the  chest) 
to  other  areas.  Patients  often  describe  this  pain  as  'moving'  or 
'shooting'  to  the  area  in  question.  Ask  about  each  of  the  possible 
choices  on  your  data  sheet. 
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NUMBNESS  definition: 


YES  (30)  NO  (31) 

This  refers  to  the  present  illness  only.  Your  patient  may 
describe  this  as  not  having  sensation  or  as  a  'tingling'  in  some  area. 


SEVERITY  definition: 

MODERATE  (32)  SEVERE  (33) 

This  is  a  judgment  you  make:  don't  ask  your  patient.  If  the 
pain  is  obviously  intense,  causing  obvious  distress,  sweating,  or 
shivering,  circle  SEVERE.  Otherwise  circle  MODERATE. 


PROGRESS  definition: 

BETTER  (34)  WORSE  (35) 

In  general,  since  it  began,  is  the  pain  getting  BETTER  or  WORSE? 
If  in  doubt,  leave  blank  and  skip  this  entry.  There  is  no  SAME  category. 


AGGRAVATING  FACTORS  definition: 

MOVEMENT  (36)  COUGH  (37)  RESPIRATION  (38) 

SITTING  (39)  OTHER  (40)  NONE  (41) 

This  means  patient  activities  which  make  the  pain  worse.  Ask 
about  each  of  the  data  sheet  items  mentioned  in  a  neutral  manner,  e.g. 
'Does  X  affect  your  pain?' 


RELIEVING  FACTORS  definition: 

NITRO  (42)  REST  (43)  WALKING  (44) 

OTHER  (45)  NOTHING  (46) 

This  refers  to  patient  activities  which  ease  the  pain.  Ask  about 
each  of  the  data  sheet  items  in  a  neutral  fashion,  e.g.  'Does  X  affect 
your  pain? ' 

NITRO  is  nitroglycerin,  a  tablet  put  under  the  tongue  for  angina 
chest  pain.  Ask  about  this  even  though  you  feel  sure  your  patient  has 
never  used  any. 


DYSPNEA  definition: 

NO  (47)  THIS  ILLNESS  (48)  HABITUAL  (49) 

This  is  shortness  of  breath  while  not  engaged  in  strenuous 
activity.  Ask  your  patient  if  he's  felt  unusually  short  of  breath, 
especially  while  resting.  Here  it  is  important  to  distinguish  between 
chronic  dyspnea  (circle  HABITUAL)  and  dyspnea  that  has  started  recently 
(circle  THIS  ILLNESS) . 
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COUGH  definition: 


NO  (50)  THIS  ILLNESS  (51)  HABITUAL  (52) 

Here  it  is  important  to  distinguish  between  chronic  cough  (circle 
HABITUAL)  and  cough  that  has  started  recently  (circle  THIS  ILLNESS) . 


NAUSEA  definition: 

YES  (53)  NO  (54) 

This  means  your  patient  is  feeling  sick  to  his  stomach.  This  may 
be  accompanied  by  weakness,  sweating,  and  profuse  salivation. 


VOMITING  definition: 

YES  (55)  NO  (56) 

Here  the  patient  is  being  sick  to  his  stomach  with  an  appreciable 
amount  of  stomach  contents  expelled.  This  should  be  distinguished  from 
'burping'  up  small  amounts  of  acid  material,  which  is  not  vomiting. 


APPETITE  definition: 

NORMAL  (57)  DECREASED  (58) 

Here  we're  interested  in  RECENT  change.  Your  patient  may  still 
feel  he  can  eat,  but  you  wish  to  know  if  his  DESIRE  to  eat  is  decreased. 
If  his  desire  to  eat  is  the  same,  write  NORMAL,  otherwise  write 
DECREASED. 


BOWELS  definition: 

NORMAL  (59)  CONSTIPATED  (60)  DIARRHEA  (61) 

Here  we're  interested  in  a  recent  change.  If  there  has  been  a 
marked  DECREASE  in  the  number  of  stools,  circle  CONSTIPATED,  if  a  marked 
INCREASE  circle  DIARRHEA  (especially  if  watery) .  Otherwise  circle 
NORMAL . 


PREVIOUS  SIMILAR  PAIN  definition: 

YES  (62)  NO  (63) 

Check  carefully  for  times  in  the  past  when  your  patient  has 
experienced  chest  pain.  Sometimes  incidents  are  forgotten.  Sometimes 
they  have  been  concealed  to  avoid  a  MEDICAL  BOARD. 
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PREVIOUS  CARDIO-RESPIRATORY  ILLNESS  definition: 


YES  (64)  NO  (65) 

This  refers  only  to  a  significant  illness  involving  the  cardio¬ 
vascular  or  respiratory  systems.  Ask  about,  and  check  his  health  record 
for,  major  illnesses  in  the  past  such  as  high  blood  pressure,  angina, 
pericarditis,  pneumonia,  pneumothorax,  pulmonary  embolism,  asthma. 


PREVIOUS  MAJOR  SURGERY  definition: 

YES  (66)  NO  (67) 

This  refers  to  major  surgery  of  any  kind.  Ask  about,  and  check 
■  health  records  for,  major  surgery  in  the  past. 


TEMPERATURE  definition: 

<98.6  (68)  98.6-100.2  (69)  100.3-102  (70)  >102  (71) 

This  is  self-explanatory.  Use  oral  temperature.  Ensure  that  your 
patient  has  not  drunk  hot  or  cold  liquids  during  the  15  minutes  prior  to 
your  measurement. 


PULSE  definition: 

<60  (72)  61-80  (73)  81-100  (74)  >100  (75) 

Enter  the  pulse  rate  in  beats  per  minute.  Feel  the  radial  or 
carotid  pulse  for  one  full  minute.  If  you  detect  irregularities 
such  as  extra  beats,  count  the  number  of  times  this  happens  in  a  minute. 
(The  computer  only  uses  the  pulse  rate,  but  you  want  to  be  aware  if  your 
patient  has  arrhythmia.) 


BP  (Blood  Pressure)  definition: 


SYSTOLIC  BP: 
<100  (76) 

101-120 

(77) 

121-140 

(78) 

141-160 

(79) 

>160 

(80) 

DIASTOLIC  BP: 
<70  (81) 

71-80 

(82) 

81-90 

(83) 

91-100 

(84) 

>100 

(85) 

Self-explanatory.  Write  down  the  Systolic  and  Diastolic  pressures 


MOOD  definition: 

NORMAL  (86)  ANXIOUS  (87)  DISTRESSED  (88) 

Don't  attempt  deep  psychoanalysis  here.  If  your  patient  is 
obviously  reacting  to  great  pain  or  other  severe  symptoms,  circle 
DISTRESSED.  If  he's  mainly  agitated  and  worried,  circle  ANXIOUS. 
Otherwise  circle  NORMAL. 
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COLOR  definition: 


NORMAL  (89)  PALE  (90)  FLUSHED  (91)  CYANOTIC  (92) 

Check  especially  for  pallor  (unusual  absence  of  color) ,  flushing 
(unusual  ruddiness) ,  or  cyanosis  (blueness) .  In  whites,  check  the  face 
and  ears.  In  blacks  and  whites,  check  also  the  extremities  and  mucus 
membranes,  e.g.  nailbeds,  nose,  lips,  con junctivae . 


SWEATING  definition: 

YES  (93)  NO  (94) 

Self-explanatory.  We  assume  that  the  sweating  is  not  due  to  an 
obvious  cause  such  as  hot  compartment  or  heavy  exercise. 


SHIVERING  definition: 

YES  (95)  NO  (96) 

Self-explanatory.  We  assume  that  the  shivering  is  not  due  to  a 
cold  compartment. 


J.V.P.  (Jugular  Venous  Pulsation)  definition: 

NORMAL  (97)  RAISED  (98) 

Standing  on  your  patient’s  right,  have  your  patient  reclining 
at  a  45°  angle,  his  chin  turned  about  30  degrees  to  the  left,  with  a 
light  shining  at  an  angle  across  his  neck  so  that  his  right  neck  vein 
casts  a  shadow-  It  is  important  to  distinguish  the  pulsation  of  the 
external  jugular  vein  from  the  cartoid  artery  pulse.  This  can  be 
accomplished  by  pressing  lightly  but  firmly  against  the  vein  at  the  base 
of  the  neck;  the  vein  pulsation  will  be  stopped  by  this  maneuver  while 
the  arterial  pulsation  will  not  be  (since  artery  pressure  is  higher) . 

With  the  patient  in  this  position  and  the  JVP  identified,  check 
in  the  following  way;  if  the  meniscus  is  seen  more  than  one  half 
of  the  distance  from  the  clavicle  to  the  chin,  circle  ELEVATED. 

Otherwise  circle  NORMAL.  If  you're  not  sure,  omit  this  entry. 

An  elevated  JVP  often  indicates  heart  failure. 
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RESPIRATORY  MOVEMENT  definition: 

NORMAL  (99)  ABNORMAL  (100) 

Here  we  check  the  amount  and  pattern  of  chest  expansion.  Check  for 
two  things. 

A)  At  the  level  of  the  nipples  measure  the  amount  of  chest  expansion 
with  a  tape  measure  or  string.  If  the  difference  between  full 
inspiration  and  full  expiration  is  less  than  2  inches,  circle  ABNORMAL 
(don't  draw  the  tape  tightly  enough  to  push  in  on  the  skin) . 

B)  Inspect  and  palpate  with  both  hands  whether  expansion  is  equal  on 
both  sides.  If  obviously  different,  circle  ABNORMAL. 


HEART  SOUNDS  definition: 

NORMAL  (101)  ABNORMAL  (102) 

With  the  diaphragm  of  your  stethoscope  listen  carefully  to  the 
first  and  second  heart  sounds  (LUB-DUB,  LUB-DUB) .  If  you  can  hear 
anything  else  or  if  the  heart  is  irregular,  circle  ABNORMAL.  Otherwise 
circle  NORMAL. 

Sometimes  changing  your  patient's  position  makes  auscultation 
easier;  have  him  sit  up,  lean  forward,  lie  back,  etc.,  as  needed. 

Also,  in  young,  healthy  men  the  heart  can  slow  and  speed  with 
respiration.  This  is  called  sinus  arrhythmia,  and  is  NORMAL. 


PERCUSSION  definition: 

NORMAL  (103)  DULL  (104) 


HYPER¬ 
RESONANT  (105) 


Be  sure  to  carefully  percuss  both  the  front  and  back  of  the  chest. 
The  best  method  is  to  compare  sides  as  you  go,  left  with  right.  If  the 
sides  don't  sound  the  same,  there  is  probably  an  abnormality.  The  lungs 
should  normally  sound  somewhat  resonant.  If  an  area  sounds  markedly  less 
resonant  than  normal,  circle  DULL;  if  an  area  is  markedly  more  resonant 
than  normal,,  circle  HYPER- RESONANT,  otherwise  circle  NORMAL. 


With  regard  to  comparing  sides,  note  than  when  percussing  anterior¬ 
ly  right  and  left  are  normally  different  in  two  areas:  1}  dullness 
should  be  present  to  the  left  of  the  lower  sternum  over  the  heart  and 
2)  when  percussing  below  the  level  of  the  xiphoid  (tip  of  the  sternum) 
there  is  usually  dullness  to  the  patient's  right  (liver)  and  tympany  to 
the  patient's  left  (over  the  stomach).  So  compare  only  those  areas  above 
the  level  of  the  sternum  and  not  over  the  level  of  the  heart. 
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CHEST  SOUNDS  definition: 


NORMAL  (106)  ,  RHONCHI  (107)  RALES  (108)  DECREASED  (109) 

Listen  with  the  diaphragm  of  your  stethoscope  to  your  patient's 
back.  Have  him  breathe  deeply  through  his  mouth  and  compare  right 
and  left  sides.  If  one  side  is  markedly  decreased,  write  DECREASED. 

Rales  are  discrete,  non- continuous  (crackling)  sounds  produced 
by  moisture  in  airways  of  the  lung.  Fine  rales  sound  like  the  rubbing 
of  a  lock  of  hair  between  your  fingers  near  your  ear.  Rales  are  usually 
heard  late  in  inspiration.  If  you  suspect  heart  failure,  fine  rales 
should  be  checked  for  by  listening  to  the  lung  bases  (about  2  finger 
widths  below  each  scapula)  and  having  your  patient  cough,  then  breathe 
deeply.  Courser  rales  can  be  heard  elsewhere  in  the  lung  in  conditions 
such  as  pneumonia. 


Rhonchi  are  continuous,  musical  sounds  that  range  from  high-pitched 
wheezes  to  lower-pitched  moaning.  Rhonchi  can  be  both  inspiratory  and 
expiratory  although  they  are  often  more  prominent  in  expiration.  They 
can  be  heard  anywhere  over  the  lungs.  Rhonchi  are  usually  heard  with 
infections  such  as  bronchitis  or  pneumonia,  or  with  airway  spasm  (asthma)  .• 

If  breath  sounds  are  not  markedly  decreased,  and  if  there  are  no 
added  sounds,  write  NORMAL. 


SCOT  definition: 

<50  (110)  50-100  (111)  101-200  (112)  >200  (113) 

Serum  Glutamic  Oxaloacetic  Transaminase  was  the  first  enzyme  to  be 
widely  used  as  a  laboratory  diagnostic  aid.  It  begins  to  rise  12  hours 
post  injury,  peaks  at  2-4  times  normal  at  24  hours,  and  returns  to  normal 
in  4-7  days.  It  is  also  released  from  an  injured  liver  and  other  cells 
and  is  thus  a  sensitive  but  non-specific  indicator.  The  current  terminology 
is  "AST"  or  aspartate  transferase.  Facilities  for  measurement  may  not  be 
available  at  sea. 
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2.3  CHEST  PAIN  DATASHEET 


The  chest  pain  data  sheet  (FIGURE  2-21)  provides  the  practitioner 
with  a  guide  to  use  in  performing  the  history  and  physical  examination 
and  in  collecting  data  from  the  patient.  It  consists  of  21  history  items, 
including  age,  and  13  physical  exam  categories.  The  findings  on  these 
categories  are  used  by  the  computer  pgoram  to  arrive  at  a  diagnosis.  The 
datasheet  pages  displayed  by  the  diagnostic  program  correspond  to  the 
format  of  the  paper  and  pencil  datasheet. 

In  addition  to  the  symptom  categories  used  by  the  diagnostic 
program,  the  chest  pain  datasheet  also  includes  3  symptom  categories 
(Body  build,  Duration  of  pain  (refined.  Examiner's  opinion  of  the 
patient's  condition),  which  are  used  by  the  computer  program  to  arrive 
at  a  prognosis  for  patients  whose  initial  computer  diagnosis  is 
MYOCARDIAL  INFARCTION.  These  terms  are  defined  on  the  datasheet;  they 
are  not  included  in  the  items  defined  by  the  section  of  the  program 
described  on  pages  14-20. 


21 


FIGURE  2-21 


OURATION  OF  PAIN! 

tliir.  diisoJi!  of 
<IHR  (5)  2-4IIR  (7) 

4-12HR  (8) 
^  >12HR  (9) 


onset  of  PAIN; 

<su(kh![t  <  £  >  3  Min) 

SUOOEN  6RAOUAL  UU 


RELIEVING  FACTORS: 

<<ic-ltv'ttic.s  which  cave  tlie  painr  cibont  r.jcjil 

NiTRC  (42)  REST  (43)  WALKING 

OTHER  (4S)  NONE  (46) 


TIME  COURSE  OF  PAIN: 

(at  cimes  f rco  of  pain  >  intcmittent; 
everythin'}  else-  ■«  c<^&uin\iOus) 

CONTINUOUS  <0^ 
INTERMITTENT  TIJ) 

SITE  OF  pain: 

(have  t}ic  ]>atLcnt  point  with  one 
finrjer  r.<i  where  the  pjin  is) 


SUBSTERNAL^i^  RT.  SIDE  (19) 
ACROSS  uT)  epigastric  (20) 
LT,  SIOE  (18)  OTHER  (21) 


RA01A710N: 

(pain  other  than  in  ehfihC 
YES  (14)  N0/7iS)^ 


RAOIATES  TO; 

(location  of  raUiate^)  pain;  ask 
aptiut:  each) 


LT.  ARM  (22)  SHOULDER  (26) 

RT.  ARK  (23)  NECK  (27) 

BOTH  ARKS  (24)  JAW  (28) 

BACK  (25)  OTHER  (29) 


NUKBHESS: 

(this  jllijvav  only:  of  tenaation  o^  a  tingling  feeling) 

YES  (30)  NO/Ulij 


■  severe; 


'ere;  everything  eleo  ■  moderate) 


SEVERITY  OF  PAIN: 

(dg  nor.  jsi-,-  obvionv  distreus  - 
MODERATE  (32)  SEVERE^ 

PROGRESS  OF  PAIN; 

i.ri-jid  ()l  pjin  rathgp<^ 

BETTER  (34)  WORSE  G35J 


aggravating  FACTORS! 

(facturv  which  make  the  p.tin  werae;  ask  it  porferm  each  <tnlc 

MOVEMENT  a|)  COUGH  (37)  BREATHING  (38) 
SITTING  fJT>  OTHER  (40)  NONE  (41) 


short-t«m  changes] 


OTHER  SYMPTOMS 

oyspnea: 

(shenne^ia^jf  breath:  recent  *'  this  illness,  chronic  ■  habitual) 

N0^j47jj  THIS  ILLNESS  (48)  HABITUAL  (49) 

COUGH: 

(recetit^t^^h  ^  this  illness;  chronic  cou<.jh  >  h.'ibLtudI) 

NO  ^5^  THIS  ILLNESS  (51)  HABITUAL  (52) 

nausea: 

(I'eel  itvij>a^  lo  nLuAacIi] 

'yES^3^  no  (54) 

vomiting: 

(being  sick  to  sto«a^>— » 

YES  (55)  NO^S^ 

appetite: 

(recent  change  in  appetite)  ^ 

"normal  (57)  decreased  ^58^ 


BOWELS: 

(recent  change  in  bowel  habits) 

NORMAL  (S9)  C0NSTIPATE0(f60j) 


DIARRHEA  (61) 


PREVIOUS  CHEST  PAIN: 

(pain  like  this  hefayi 
YES  (^2)  N0(^i> 

PREVIOUS  CARDIO-RESPIRATORY  ILLNESS: 

('significant  illonss  either  cardiovascular  or  respiratory) 
YES  (64)  MO  (tsp 

PREVIOUS  MAJOR  SURGERY! 

(major  surc(«ry  of  anv,JW)4) 

YES  (66)  NO 


PHYSICAL  EXAM 


vital  SI GRS 


BLOOD  PRESSURE 

systolic  diastolic 

<100  (76)  <70  (81) 

100-120  UAL  70-80  Opi 

121-140  ^SD  81-90/^3)7 


TEMPERATURE 


<98.6  (CBl  <60  (72) 

98.6-100.2  60-80  UjI 

100.3-102  TTS)  81-100G74p 
>102  (71)  >100  vTST 


MOOD: 

i.ion't  .I'k;  <>bvi4n»A  .-liatress  or  physical  symptoms  w  distressed;  just 
woi'iird  itlx^ut.  illness  ••  .insiouv) 

NORMAL  (86)  ANXIOUS  (87)  01  STRESSED mS]/ 

COLOR; 

(consider  euvirunmentol  chuck  conjunctiva  S  palms  on  black  h  oriental) 

NORMAL  (89)  PALE  ^9^  FLUSHED  (91)  CYANOTIC  (92) 

EXAMINATION 

SWEATING: 

(check  ifi't  i^L  diKi  to  envimnmonc  or  exorcise) 

YES^^jy  NO  (94) 

SHIVERING! 

(check  /or  vhi ve c i ng due  to  environment,'  e.g  cold  conf^artment) 

YES  (95)  NO/^9^ 

JUGULAR  VENOUS  PULSE: 

(pt,  redinud  at  4$  degrees,  chin  30  degrees  to  left;  meniscus  more  Chen 
’j  of  the  dj^flnee  from  clavicle  to  chin  >  elevated;  otherwise  circle  normal) 
NORMAL  RAISED  (98) 

RESPIRATORY  MOVEMENT? 

(ebnonnal  -  the  difference  between  full  inspiration  a  full  expiration  is 
less  than  3  inches  or  expansion  is  unequal  between  sides;  othorwiae 
circle  rxuinjl) 

NORMAL  ABNORMAL  (100) 


HEART  SOUNDS: 

(with  a  stethosoopa  listen  to  the  1st  and  2nd  heart  sounds: 
normal  >  lub-dub.  lub-dub;  abnormal  >  everything  else) 

NORMAL  ABNORMAL  (102)  (PVC'S _  S/S^ _ ) 

PERCUSSION: 

(percuss  both  front  A  back)  dull  >  less  resonant  than  normal;  hyper¬ 
resonant  •jMsricedly  more  resonant  than  normal)  otherwise  circle  normal) 

NORMAL  ^1033  DOLL  (104)  HYPER-RESONANT  (lOS) 

CHEST  sounds; 

(compare  left  to  right  sides;  rhonchl  •  continuous  musical  sounds; 
rsles  *  discrete,  non-centinuous  sounds;  decreased  a  one  side 
markedly  d'^c^^^ksed) 

NORMAL  <U06J  RHONCHI  (107)  RALES  (108)  DECREASED  (109) 


sgot: 

(unzyme  test) 
<50  (110) 


SO-100  (111)  101-200  (112) 


BODY  BUlLOi 

(obviously  overweight  <*  obes^  o^erwise  circle  normal) 

NORMAL  (114)  OBESE  (Tl^ 

DURATION  OF  PAIN  [REFINED); 

(cumpletc  tMs  item  only  for  repeated  examinations  of  the  p<)tient) 
<6HR|>m^  6-24KR  (117)  >24HR  (118) 

examiner's  OPINION  OF  THE  PATIENT'S  CONDITION! 

(how  sick  do  you  feel  the  patient  is)  _  .. 

GOOD  (119)  FAIR  (120)  POOR 

CORPSMAn's  DIAGNOSIS;  H.O.'s  DIAGNOSIS! 

(mack  your  diagnosis)  (p^ark  your  diagnosis) 

(  )  myocardial  INFARCTION  (  )  MYOCAROIAL  INFARCTION 

(  )  ANGINA  (  )  ANGINA 

(  )  NONSPECIFIC  CHEST  PAIN  (  )  NONSPECIFIC  CHEST  PAIN 

(  )  PNEUMONIA  (  )  PNEUMONIA 

(  )  PNEUMOTHORAX  (  )  PNEUMOTHORAX 

(  )  OTHER (specify)  V  )  OTHER  (specify) 


EXAMINING  CORPSMAN: 


EXAMINING  M.O.: 


2.4  DIAGNOSTIC  CATEGORIES: 


The  diagnostic  program  is  intended  to  specifically  diagnose  four 
of  the  most  common  and  the  most  serious  causes  of  chest  pain  in  the 
submarine  population.  These  categories  are:  acute  myocardial 
infarction  (M.I.),  angina  (ANGINA),  pneumonia  (PNEUMO) ,  and  pneumo¬ 
thorax  (THORAX) . 

In  addition,  a  fifth  category  termed  nonspecific  chest  pain 
(NONSCP)  is  intended  to  include  those  conditions  which  are  vague  and 
general  in  nature  and  which  are  amenable  to  symptomatic  treatment. 
Occasionally,  the  practitioner  will  pinpoint  a  "specific"  diagnosis 
(i.e.,  esophagitis)  in  this  category,  but  in  all  cases  NONSCP  is 
intended  to  encompass  those  conditions  which  are  non-life-threatening 
and  not  a  reason  for  medical  evacuation. 

There  are  several  causes  of  acute  chest  pain  (pulmonary  embolism, 
pericarditis,  aortic  dissection)  which  are  not  included  in  the  above 
categories,  yet  are  of  a  serious  nature.  The  program  will  yield  the 
diagnosis  of  the  category  which  most  closely  reflects  the  sign/ symptom 
complex  of  a  serious  illness  for  which  there  is  no  specific  category. 
Thus,  the  practitioner  must  utilize  his  clinical  judgment  both  when 
gathering  and  entering  the  data  and  when  interpreting  the  results  of 
his  computer  interaction.  A  discussion  of  each  diagnostic  category 
is  presented  below. 


SPECIFIC  DIAGNOSES  - 

A.  MYOCARDIAL  INFARCTION  :  Myocardial  infarction  (M.I.)  is  a 
leading  cause  of  mortality  and  morbidity  in  the  population  of  the 
western,  affluent  civilization.  In  the  United  States,  the  annual 
incidence  is  approximately  1,000,000  cases  weighted  towards  a  middle 
age  or  older  age  group.  Pre-hospital  mortality  approaches  50%.  M.I. 
is  acute  necrosis  of  myocardium  secondary  to  a  sudden  interruption  or 
decrease  of  blood  supply.  Major  risk  factors  are  hypertension, 
hyperlipidemia,  and  smoking.  Diabetes  and  angina  are  related  risk 
factors  unlikely  to  be  present  in  the  submarine  population. 

A  history  of  acute  onset  of  crushing  substernal  chest  discomfort 
radiating  to  the  left  arm  and  accompanied  by  diaphoresis,  nausea,  and 
a  sense  of  impending  doom  is  classic.  The  pain  lasts  longer  than  20 
minutes  and  is  unrelieved  by  rest  and  nitroglycerin.  Physical  exam 
ranges  from  near-normal  to  obvious  shock.  An  electrocardiogram  (EGG) 
taken  early  in  the  course  is  abnormal  less  than  50%  of  the  time,  but 
may  show  ST  elevation,  T  wave  inversion,  or  left  ventricular  hypertrophy. 
Q  waves  appear  later.  Cardiac  enzyme  determinations  may  be  helpful  but 
are  unavailable  at  sea.  Variations  in  the  presentation  are  legion  and 
well-documented.  Diagnosis  must  be  made  on  clinical  grounds 
incorporating  risk  factors,  the  history  and  physical  exam,  the  ECG  (if 
available),  and  the  practitioner’s  impression  of  the  patient's  overall 
condition. 
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B.  ANGINA  : 


_ _  Relative  myocardial  ischemia  from  an  imbalance  in 

myocardial  oxygen  supply  versus  demand  is  believed  to  be  the  basis  for 
angina  pectoris.  Risk  factors  are  the  same  as  for  M.l,  Angina  (ANGINA) 
is  commonly  described  as  substernal  chest  pain,  pressure,  tightness,  or 
burning  sensation  that  may  radiate  to  the  left  arm  (or  elsewhere) .  The 
discomfort  is  relieved  within  1-5  minutes  of  resting  and/or  by  nitro¬ 
glycerin  . 

The  physical  exam  is  usually  normal.  Cardiac  examination,  during  an 
episode  of  pain,  may  reveal  an  S^/  a  mitral  regurgitant  murmur,  or  a 
systolic  bulge  that  disappears  as  the  pain  subsides.  The  EGG  is  usually 
normal  but  may  show  ST  depression  which  later  resolves.  Cardiac  enzymes 
are  normal,  although  such  testing  is  unavailable  at  sea. 

Diagnosis  is  made  on  the  assessment  of  risk  factors,  the  history  and 
physical  exam,  the  ECG  (if  available) ,  and  the  response  to  rest  and 
nitroglycerin . 

Variant  or  "rest"  angina,  also  known  as  Prinzemetal ' s  angina,  is  due 
to  coronary  artery  spasm.  There  is  a  good  response  to  nitroglycerin  but 
not  to  rest.  The  ECG  may  show  transient  ST  elevation. 

Recurrent  and  frequent  episodes  of  angina  may  be  a  harbinger  of 
impending  M.l.  The  episodes  may  occur  given  less  cardiopulmonary  stress 
and  be  less  responsive  to  rest  and  nitroglycerin  than  typical  episodes. 

C .  PNEUMONIA  :  Pneumonia  (PNEUMO)  is  an  alveolar  infection  caused 
by  a  bacterium,  virus,  or  other  non-bacterial  pathogen.  Pneumococcal 
(bacterial)  pneumonia  is  most  likely  in  the  isolated  case.  Mycoplasma 
(non-bacterial)  or  viral  pneumonia  is  more  common  when  groups  of  people 
are  ill.  Chest  pain  as  a  component  of  pneumonia  is  due  to  pleuritic  or 
bronchial  irritation.  The  pain  may  be  felt  anywhere  in  the  thorax  and 
is  exacerbated  by  coughing  or  deep  breathing.  The  "pleuritic  component" 
to  the  pain  distinguishes  it  from  M.l.  or  ANGINA.  Additionally,  pneumonia 
is  characterized  by  coexisting  or  recent  upper  respiratory  tract  symptoms, 
malaise,  fever,  chills,  and  sputum  production.  Dyspnea,  tachypnea,  and 
tachycardia  may  be  present. 

Physical  exam  reveals  varying  degrees  of  vocal  fremitus,  egophony, 
dullness  to  percussion,  rhonchi,  and  rales.  These  signs  are  worse  with 
bacterial  pneumonia. 

A  lung  infiltrate  is  usually  visible  on  chest  roentgenogram,  but  this 
study  is  unavailable  aboard  ship.  The  white  blood  cell  count  is  elevated 
in  bacterial  pneumonia,  but  near-normal  or  depressed  otherwise. 

Mycoplasma  pneumonia  is  common  in  young  adults  and  varies  from  the 
milder  illness  of  a  viral  pneumonia  to  the  more  serious  bacterial 
pneumonia.  A  right  lower  lobe  pneumonia  W/ill  occasionally  present  as 
abdominal  discomfort  in  a  younger  person.  A  compatible  history  and 
rales  in  the  lung  field,  that  do  not  clear  with  cough,  are  the  best 
indicators  of  the  presence  or  absence  of  pneumonia. 
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D.  PNEUMOTHORAX  :  Pneumothorax  (THORAX)  involves  a  degree  of 
collapse  of  a  lung  secondary  to  entrance  of  air  into  the  potential 
space  between  visceral  and  parietal  pleura.  Spontaneous  pneumothorax 
develops  de  novo  from  rupture  of  an  existing  pulmonary  bleb  or  occurs 
during  respiratory  infection.  Cough  or  another  mechanism  whereby 
intra-  alveolar  pressure  is  elevated  may  be  a  precipitating  factor. 
Penetrating  chest  trauma  and  rib  fracture  are  other  causes. 

There  is  an  acute  onset  of  chest  discomfort  on  the  side  of  the 
pneumothorax,  with  a  pleuritic  quality  to  the  discomfort.  Dyspnea, 
tachypnea  and  cyanosis  may  be  present  with  a  large  pneumothorax. 

Physical  exam  reveals  absent  breath  sounds  and  hyper-resonance 
overlying  the  pneumothorax.  The  trachea  may  be  deviated  away  from  the 
affected  side-  There  is  no  fever  or  accompanying  respiratory  infection, 
unless  pre-existent.  Subcutaneous  emphysema  may  be  present  in  the  chest 
wall  or  neck  area  if  the  parietal  pleura  is  torn. 

The  pneumothorax  is  visible  on  chest  roentgenogram,  although  this 
study  is  unavailable  on  a  submarine.  White  blood  cell  count  is  normal 
unless  there  is  acute  distress,  whereupon  it  might  be  elevated 
moderately.  Occasionally,  a  "one-way  valve"  effect  exists  leading  to 
the  life-threatening  tension  pneumothorax.  Usually,  the  non-tension 
pneumothorax  stabilizes  within  a  few  minutes. 

NON-SPECIFIC  CHEST  PAIN  - 


Non-specific  chest  pain  (NONSCP)  is  intended  to  encompass  those 
disorders  which  are  not  serious  and  not  a  cause  for  medical  evacuation. 
Pain  in  this  category  is  often  more  annoying  than  worrisome  to  patients. 
This  aspect  is  helpful  in  diagnosis. 

The  likelihood  of  chest  pain  being  due  to  non-specific  causes  varies 
with  the  age  of  the  patient  and  clinical  circumstances  of  the  case. 

In  a  young  adult  without  previous  or  recent  medical  illness,  a  serious 
cause  for  chest  pain  is  unlikely. 

Non-specific  causes  for  chest  pain  include:  a)  musculoskeletal 
pain;  b)  costochrondritis  (Tietze's  syndrome);  c)  esophagitis; 
d)  esophageal  spasm  ("esophageal  angina");  e)  hyperventilation  syndrome; 
f)  psychoneurotic  disorder;  g)  epigastric  lesions  (cholelithiasis, 
peptic  ulcer,  etc.). 

Musculoskeletal  pain  and  costochondritis  denote  muscle,  rib,  or 
cartilage  pain  due  to  inflammation  or  trauma.  The  pain  is  often  sharp, 
of  moderate  intensity,  localized  to  the  chest  wall,  and  reproduced  by 
direct  manipulation  of  the  affected  area. 

Esophagitis  and  esophageal  spasm  are  felt  substernally  in  the 
mid-chest  and/or  epigastrium.  Esophagitis  is  caused  by  direct  irritation 
from  food  or  drink,  by  reflux  of  gastric  contents,  or  by  infection  (the 
latter  is  uncommon  in  healthy  people) .  There  is  a  good  response  to 
liquid  antacids,  a  fact  which  assists  in  diagnosis.  Esophageal  spasm 
may  follow  a  meal  and  is  accompanied  by  dysphagia.  The  pain  is  relieved 
by  nitroglycerin,  making  differentiation  from  classic  angina  difficult. 
The  concommitant  dysphagia  and  lack  of  relationship  to  exercise  may  be 
helpful  in  diagnosis. 
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Hyperventilation  syndrome  is  a  relatively  common  cause  of  chest 
discomfort  in  an  (already)  anxious  person.  The  accompanying  breath¬ 
lessness,  palpitations,  weakness,  and  response  to  re-breathing 
techniques  are  diagnostic. 

In  psychoneurotic  disorders  no  physical  etiology  for  chest  pain 
is  found.  This  diagnosis  is  best  made  by  those  skilled  in  psychiatric 
evaluation.  It  should  be  assumed  that  crewmembers  with  chest  pain 
have  a  physical  etiology  for  chest  pain. 

Disorders  that  present  with  epigastric  pain  such  as  gastritis, 
peptic  ulcer,  pancreatitis,  and  cholelithiasis  may  occasionally  be 
confused  with  chest  pain  disorders.  In  most  of  these  disorders,  the 
abdominal  exam  is  revealing  —  any  abdominal  tenderness  points  to  a 
non-chest  source  of  the  pain.  The  key  issue  is  to  avoid  overlooking 
an  atypical  presentation  of  M.I.  The  assessment  of  risk  factors,  the 
history  and  physical  exam  (chest  and  abdominal) ,  and  the  ECG  (if 
available)  are  helpful  in  this  regard. 
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SECTION  3  -  PROGRAMMING  DETAILS 


3.1  THE  DIAGNOSTIC  PROGRAM 


The  chest  pain  tape  is  composed  of  two  related  programs:  the 
diagnostic  program  and  the  prognostic  program.  The  diagnostic 
program  elements  will  be  discussed  in  this  section,  and  the 
prognostic  program  elements  will  be  discussed  in  section  3.2. 

The  diagnostic  program  contains  one  main  program  (Program  10) 
and  two  small  introductory  programs  which  serve  only  to  automatically 
lead  the  user  into  Program  10  when  the  tape  is  loaded. 

The  first  page  of  program  10  is  the  initial  option  page  from 
which  the  user  may  proceed  to  obtain  datasheet  definitions,  treatment 
displays,  the  training  program,  or  the  diagnostic  program. 

If  the  datasheet  definition  pathway  is  chosen,  once  the  user 
specifies  the  definition  desired,  the  program  searches  for  file  9  and 
accesses  the  definition  desired  by  reading  each  definition  as  binary 
data  until  the  appropriate  definition  is  reached.  Once  read,  the 
definition  is  displayed  and,  if  a  graphic  display  accompanies  the 
definition,  the  appropriate  display  is  produced  by  program  10.  The 
program  flow  then  returns  to  the  original  decision  point. 

The  treatment  suggestions  and  training  programs  do  not  yet  exist. 
If  either  of  these  options  are  selected,  the  program  will  display  a 
statement  to  this  effect  and  return  the  user  to  the  initial  option 
page. 


If  the  diagnostic  interaction  is  chosen,  program  10  finds  the 
file  (11)  which  contains  the  data  entry  reminders  and  summary  page  and 
serially  displays  them.  The  program  loads  the  database  and  all 
variables  are  set  to  their  initial  values.  The  program  continues 
on  from  this  point  as  described  in  Section  2. 

On  the  following  pages  each  program  (both  data  and  programming) 
is  reproduced  with  some  programming  notes  to  aid  in  understanding 
the  flow  of  the  program.  Table  3-1  lists  the  programs  as  they  are 
stored  on  the  tape  and  in  the  order  in  which  they  will  be  discussed. 
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TABLE  3-1  PROGRAM  LISTINGS  FOR  CHEST  PAIN  TAPE 


PROGRAM  TAPE 

NUMBER  TYPE  OF  PROGRAM  LENGTH  PROGRAM  CONTENTS 


•1 

ASCII  PROGRAM 

768 

2 

BINARY  PROGRAM 

2048 

3 

NEW 

6912 

4 

NEW 

3840 

5 

NEW 

7680 

6 

NEW 

3328 

7 

BINARY  PROGRAM 

8704 

8 

BINARY  DATA 

10752 

9 

BINARY  DATA 

14080 

10 

BINARY  PROGRAM 

19712 

11 

BINARY  DATA 

8448 

12 

BINARY  DATA 

4096 

13 

BINARY  DATA 

768 

14 

BINARY  DATA 

7424 

15 

BINARY  DATA 

7424 

16 

BINARY  DATA 

7424 

17 

BINARY  DATA 

7424 

18 

BINARY  DATA 

7424 

19 

BINARY  DATA 

7424 

20 

BINARY  DATA 

7424 

21 

BINARY  DATA 

7424 

22 

BINARY  DATA 

7424 

23 

BINARY  DATA 

7424 

24 

BINARY  DATA 

7424 

25 

BINARY  DATA 

7424 

26 

BINARY  DATA 

7424 

27 

BINARY  DATA 

7424 

28 

LAST 

728 

ASCII  INTRODUCTION 

INTRODUCTORY  PAGE 

EMPTY  (TREATMENT  DISPLAYS) 

EMPTY  (TREATMENT  DISPLAYS) 

EMPTY  (TREATMENT  DISPLAYS) 

EMPTY  (TREATMENT  DISPLAYS) 

PROGNOSTIC  PROGRAM 

PROG.  PROB.  &  DISPLAY  PROGRAM 

DATASHEET  DEFINITIONS 

DIAGNOSTIC  PROGRAM 

ENTRY  REMIN,  SUMMARY,  DATABASE 

DISPLAY  PAGES 

LAST  CASE 

DATAFILE 

DATAFILE 

DATAFILE 

DATAFILE 

DATAFILE 

DATAFILE 

DATAFILE 

DATAFILE 

DATAFILE 

DATAFILE 

DATAFILE 

DATAFILE 

DATAFILE 

DATAFILE 

LAST  PROGRAM 
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PROGRAM  1  -  ASCII  INTRODUCTION 


This  program  is  used  only  to  load  program  2,  the  BINARY  PROGRAM 
introductory  page.  The  ASCII  introductory  page  is  required  by  the 
computer  software  to  enable  loading  of  BINARY  programs. 


CHEST  PAIN  PROGRAM  1 


ASCII  INTRODUCTION 


10  FIND  2 
20  CALL  "BOLD" 
3  0  RUN 
40  END 
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PROGRAM  2  -  INTRODUCTORY  PAGE 

This  program,  automatically  loaded  and  executed  when  the  tape 
is  inserted  and  "AUTOLOAD"  is  keyed,  displays  the  Introductory  Page 
and  automatically  accesses,  loads,  and  executes  the  main  diagnostic 
program,  program  10. 


CHEST  PAIN  PROGRAM  2 


INTRODUCTORY  PAGE 


REM; 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

FIND 

CALL 

END 


THIS  WILL  PRINTOUT  THE  FIRST  PAGE 
USING  ‘’P,bL,27X. FA";  "SUBMARINE  CORPSMAHJ" 

USING  "18X. FA": "COMPUTER-ASSISTED  DIAGNOSIS  PROGRAMJ" 

USING  "34X.FA": "FORJ" 

USING  "30X,FA": "CHEST  PAIN" 

@32,21:29,60.4 

@32,20:29,88,99.5,88,99.5,68.4,29,60.4,26,57.4,26,91,29,88 
@32,20:26,91. 102.5,91,99.5,88, 102.5,91,182. 5,57.4 
@32,20:99.5,60. 4, 102.5,57.4,26,57.4 
@32,21:80.2,37.3 

@32, 20:  76, 37. 2, 74. 2, 36. 8, 73,  36,  72, 2, 35,  72, 34,  71, 8, 32, 72, 2, 30. 8 
@32,20: 72. 8,29,8, 74,28. 9,76. 5,28,80,  28, 85, 28. 4,89,29, 2,92, 30.3 
@32; 20. -92. 8, 23. 3, 93^5,29^94. 1,31.7.93.8,32.3,96.2,32.3 
@32,20:94.5,32.5,95.5,33.4,95.3,34,94,33.3,93.7,36.5,93,36.8 
@32, 20: 92.  3,  35. 2, 91 ,  o5, 89.  8,  35.  2,  88, 35. 8,  8b.  3,  3b.  2, 85. 6, 39 
@32 ',20:  83.  4, 39, 86. 5, 39.  3, 89^39. 87. 8,  39.  5, 85.  3, 40, 85.  1,41. 1 
@32,20:83,41.7,82,41.3,81,41.2,80.8,39.7,73,40,78,39.6 
@32, 20: 30. 4, 38. 8, 30. 2, 37 . 3 
USING  "5/,FA": "GCGGCGGGDeveloped  by:" 

"JNAUAL  SUBMARINE  MEDICAL  RESEARCH  LABORATORY" 

"Box  900  SUBASE,  NLON.GROTON,  CONNECTICUT  06349" 

"Phorie:  <203>  449-3668,  4894.  AutovoB  241-3668,  4894" 

10 

"bold" 


30 


PROGRAMS  3-6  SPACE  ALLOCATED  FOR  TREATMENT  DISPLAYS 


Programs  3-6  are  currently  empty.  These  files  allocate  space 
for  the  inclusion  of  chest  pain  treatment  regimes. 


PROGRAM  7  -  PROGNOSTIC  PROGRAM 
PROGRAM  8  -  PROGNOSTIC  PROBABILITIES 
DISPLAY  PAGES 


Programs  7  and  8  pertain  to  the  prognostic  program.  These 
program  elements  will  be  disucssed  in  Section  3,2. 


PROGRAM  9  -  DATASHEET  DEFINITIONS 

Program  9  contains  the  datasheet  definitions  stored  as  BINARY 
DATA  in  order  of  their  appearance  on  the  datasheet  and  definition 
selection  display.  The.  data  strings  are  sequentially  read  until  the 
desired  definition  string  is  accessed  and  the  string  is  then  automatically 
printed.  The  graphic  display  contained  in  the  "CHEST  SOUNDS"  definition 
is  constructed  by  the  main  diagnostic  program. 

In  total,  there  are  32  definition  strings.  Age,  as  usual,  is  taken 
to  the  last  birthday.  In  addition,  there  are  no  definitions  for  symptom 
categories  pertaining  only  to  the  prediction  of  prognosis  (Body  build. 
Duration  of  pain  (refined),  and  Examiner's  opinion  of  the  patient's 
condition) . 

The  reader  is  asked  to  refer  to  Section  2.2  for  a  complete  listing 
of  datasheet  definitions. 
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PROGRAM  10  -  DIAGNOSTIC  PROGRAM 


The  following  pages  list  the  main  diagnostic  program  and ' 
highlight  some  of  the  important  programming  features.  The  line 
demarcations  below  serve  to  aid  in  the  understanding  of  program 
organization , 


LINES 

100 

- 

700 

1000 

- 

1379 

1400 

- 

1440 

3000 

~ 

3640 

4010 

- 

4590 

4620 

- 

4800 

5000 

- 

6000 

6010 

- 

6310 

6320 

- 

6340 

7010 

- 

7280 

8000 

- 

8200 

9000 

- 

10030 

12000 

- 

15540 

16000 

— 

16090 

FUNCTION 

Display  and  choose  initial  choice,  read  in  all 
initial  displays  and  databases 

Begin  diagnostic  interaction,  'last  case',  input 
patient's  personal  data 

Display  datasheet  pages  including  grahics 
Data  input  routine 

Preliminary  diagnosis  comparison  routine 
Reconstruct  'last  case'  from  memory  (J$) 

Case  summary  page  construction 

Entry  of  case  into  'last  case'  file  and  datafile 
Treatment  files  not  yet  created 

Input  change  routine,  GOSUB  data  input  subroutine 

Graphics  to  circle  and  'X'  data  entries 

Display  definition  choices,  add  graphics  to  'Chest 
Sounds'  definition 

Draws  graphics  for  page  2  of  datasheet 
Underlines  major  headings  on  datasheet  pages 
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Sati  initiaZ  dimnyulon^ 

Reod-i  in  databoAt  and 
de-^inition  hzading-i 


Vi^play  page  heading 


VLiplay  initial  options 


Option  choice  and  validity  check. 


Space  to  acce^-i  taaining 

pKog/tanUi 


Space  to  acce-64  tieatment 
p^og>iami 


OiAplay  entxy  Aemindexe, 


Viiplay  4ummaAy  page 


Seti  dimeniioni  o^ 

diaano^itic  vaAiable^ _ 

Inputi  unit  name,  ccoie  counteA 
and  Icoit  caAe  memoAy  ^tainq 


START  VIAGMOSTJC  PROGRAM 
Mt  initial  vajiiable  value-6 


La-6t  ca-6e  choice 


Validity  check 


SSW  entay  and  validity  check 


100  Ill  IT 

101  SET  KEY 

102  DIM  B$(5500)  ,A$(1650)  ,D$(1610)  ,Z$(180)  .F^dOit) 

103  Y$='’0'' 

10J4  FIND  11 

106  READ  e33:B$,E$,B$,D$ 

108  GOSUB  120 
no  GO  TO  170 

120  PRINT  USING  "P,6/ , 1 OT, 4 A": "CHDX" 

130  PRINT  "KIPROGRAtl  TO  AID  IN  DIAGNOSIS  OF  ACUTE  CHEST  PAIN" 

140  PRINT  632,21 : 19-2,93 

150  PRINT  @32,20:11  .2,87 ,11  .2  ,79 , 1 9 .2 ,73  ,27  .2 ,79 ,27 -2  ,87 , 1 9 -2 ,93 

152  IF  Y$<>"4''  THEN  155 

153  PRINT  @32,21 :0,70 

154  GO  TO  160  ■ 

155  PRINT  @32,21:0,60 
160  RETURN 

170  PRINT  "il  OPTIONS...  1.  To  get  DEFINITIONS  of  datasheet  ite" 

180  PRINT  ''ms_M  2.  To  access  a  TREATMENT  PROGRAM  IJ  3.  To  access  the  " 
190  PRI  "TRAINING  PROGRAM  IJ  4.  To  go  directly  to  making  a  DIAGHOSISJJJ 
200  PRINT  "i  OPTION:  GGGG’’ : 

210  INPUT  Y$ 

220  IF  LEN(Y$)<>1  THEN  200 
230  IF  ASC(Y$)<49  OR  ASC(Y$)>52  THEN  200 
240  GO  TO  VAL(Y$)  OF  9000,270,245,380 
245  GOSUB  120 

'250  PRINT  "ITRAINING  PROGRAMS  DO  HOT  EXIST  YET." 

260  GO  TO  10000 
270  GOSUB  120 

'280  PRINT  "ITREATMENT  PROGRAMS  DO  NOT  EXIST  YET.” 

285  GO  TO  10000 
380  GOSUB  120 
390  FIND  11 
400  READ  e33:A$ 

410  PRINT  A$ 

420  READ  @33:A$ 

450  INPUT  Z$ 

460  GOSUB  120 
465  PRINT 
470  PRINT  A$ 

480  Y$="0" 

'630  DIM  B(5),P(114),P1(5),P2(5),Q{8),G(113) 

640  DIM  J$(180),H$(50),0$(2),R$(2),S$(12),T$(17),Y$(4),K$(16) 

'670  FIND  13 
680  READ  @33:11$, Q,J$ 

'690  PRINT  "ill  Press  RETURN  to  continue. 

700  INPUT  Z$ 

'  1000  RESTORE  1010 
1010  DATA  1,1,1,1,1,1,4,5,"M",0 
1020  READ  PI ,L,H,N,R$,C3 
1030  P=0 
1040  GOSUB  120 

"1050  PRINT  "iWOULD  YOU  LIKE  TO  liEVIEU  THE  LAST  CASE?1" 

1060  PRINT  (Y  or  N)  ; 

1070  INPUT  R$ 

'1080  IF  R$="H"  OR  R$="n"  THEN  1170 
1090  IF  R0<>"Y"  and  R$<>"y"  THEN  1060 

■  1 1 00  PRINT  ”i" 

1110  PRINT  "lENTER  PATIENT  SSN  :  S."; 

.1120  INPUT  S$ 

1130  IF  LEN(S$)<>11  THEM  1110 
1140  GO  TO  4620 
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S-unuiatcon  cfeo/tce  and  vaLLd^tij 
c/iecfe 


SSM  zntfiy  and  validity  tkzc.k 


Timzidatz  zntAy  and  validity  ckzck 


Agz  zntfiy  and  validity  chzck 


[qozm  to  data  inpat  ^ub^>Loutinzl 


Read-6  and  diiplay-i  data^lizzt  page-6 


Colli  ioA  diagAomi  ^OA  page  2 
START  DATA  im'RV  SUBROUTINC 


E  6  F  =  zooAdinatz4  (oa  nzKt  input 
in  zntAy  boK 
C  -  ZntAy  zomtZA 


Spaczi  zntAizi  in  ZntAy  box 


SWTOiU  ff'-6  WPUT 


Ckzcki  input  and  diiplayi 
ZAAOA  mziiagz 


Validity  zhzck 


Acce-6-6  conditional  pAobabilitiZi 


1170  PRIHT  '■  JJ.IJJIIS  Tills  CASE  A  SIllULATIOt!  7^1,’' 

1180  PRIKT  "I£  (Y  or  tJ)  : 

1190  IHPUT  0$ 

1200  IF  Olii<>''Y''  AMD  0$<>"y''  AND  0$<>"U''  AMD  0$<>"n"  THEN  1180 
1210  PRINT  USING  "p, 12/ ,22t, fa, s" : "^Enter  Patient  SSW:  " 

1220  INPUT  S$ 

1230  IF  LEM(S$)<>11  THEN  1210 

1240  PRI  "JIHHHHHGEnter  Tinie/Day  Month  Year;  _  / _ Kli  " 

1250  INPUT  T$ 

1260  IF  LEN(T$)<>16  THEN  1240 

1270  PRINT  USING  "1 ,22t ,  fa.s” :  "ilEritcr  Patient  AGE:  " 

1280  INPUT  Z$ 

1290  IF  LEN(Z$)<1  OR  LEN(Z$)>2  THEN  1270 
1300  IF  VAL(Z$)<1  OR  VAL(Z$)>99  THEN  1270 
1310  IF  LEN(Z$)=1  THEN  1340 
1320  Y$=SEG(2$,2,1) 

1330  IF  ASC(Y$)<48  OR  ASC(Y$)>57  THEN  1270 
1340  Y$=SEG(Z$,1 ,1) 

1350  IF  ASC(Y$)<48  or  ASC(Y$)>57  THEN  1270 
1360  A=VAL(Z$) 

1370  Z=ABS(INT(A/10-1))  MIN  4 

1375  IF  Z=2  OR  2=3  OR  Z=4  THEN  3270 

1377  Z=1 

1379  GO  TO  3270 

1400  FIND  12 

1420  FOR  19=1  TO  7  A$  ~  Vataikzzt  page  display 

1425  read  e33:A$,L,H  ^  =  LowZAt  iymptom  ff  on  thz  page 

1430  PRINT  A$  W  =  Highest  iymptom  #  on  thz  pagz 

1432  GOSUB  16000 

1435  IF  19=2  THEN  12000 

1440  GO  TO  3000 

3000  PRINT  632,21 :0, 18 

3020  PRINT  632,20:130,18,130,0,0,0,0,18 

3030  PRINT  "I  INPUT  DATA  CODES:!  (re-enter  codes  to  delete)"; 

3033  E=0 

3034  F=9.5 
3040  C=0 
3050  C=C+1 
3055  MOVE  E,F 

3060  IF  C<>9  AND  C0 17  THEN  3O80 
3070  PRINT 

3080  PRINT  "  Cfi"; 

3090  GIN  E,F 
3100  IHPUT  Z$ 

3120  GO  TO  LEN(Z$)+1  OF  3530,3230,3210,3190 

3130  FOR  K=1  TO  5  ' 

3140  PRINT  @32,21 :3,1 

3150  PRI  "G,ERROR:  THE  DATA  CODE  ENTERED  IS  NOT  ON  THIS  PAGE;  PLEASE  RE 
3160  PRINT  "-ENTER !£." 

3170  NEXT  K 
3180  GO  TO  3050 
3190  Y$=SEG(Z$,3,1) 

3200  IF  ASC(Y$)<48  OR  ASC(Y$)>57  THEN  3150 
3210  Y$=SEG(Z$,2,1) 

3220  IF  ASC(Y$)<46  or  ASC(Y$)>57  THEN  3150 
3230  Y$=SEG(Z$,1  ,1) 

3240  IF  ASC(Y$)<48  OR  ASC(Y$)>57  THEN  3150 

3250  Z=VAL(Z$)  ,  ,1., 

3260  IF  z<L  OR  Z>H  THEM  3130  Aangz  ckzckI 

3270  FOR  1=1  TO  5 

3280  Z$=SEG( B$ ,3389+2»I+( Z-1 ) »1 0 ,2 ) 

3290  B(I)=VAL(Z$) 

3300  NEXT  I 


PZow  d-OizctoA^ 


[to  tittJlA  QMfihiC'i) _ 

CatcaZatZ^  running  p>iobabtiZtA.(l^ 


TotaZ  numbzA  zntAtzzi  coantZA 


REEMTR/  ROUTINE  -  Pi?)  to  0 

and  AZcaZoalatZA  pJtobabtZtttzz> 


FZou)  dinzc-toKi 


CalcaZatZA  ^tnaZ  pAobabilitlz-i 


Ctecfei  ioA  higlizit  pAobabiltty 


0-Uplaif-i  choicer  ioA  clinioian'^ 
pKzZlmhiaKy  dtagnOyiti 


VeAtiy  tnput 


Input  and  dtdpZay  ioA 
"othZA  dtagno-itf)"  Aoattnz 


Oo<Ui  not  agA&z  Aouttnz 


Changz  option 


Viagno^iZA  ogAZZ 


3320  IF  L=5  AHD  I!=113  THEU  7190 

3330  IF  P(Z)=1  THEM  3450 

3350  IF  Z<5  THEM  3410 

3400  GOSUB  8000 

3410  P(Z)=1 

3412  FOR  1=1  TO  5 

3414  P1(I)  =  P1(I)“B(I) 

3415  NEXT  I 

3418  C3=C3+1 
3420  GO  TO  3510 
3450  GOSUB  8000 
3460  MOVE  E,F 
3465  PRINT  "  -X" 

3470  P(Z)=0 

3480  FOR  1=1  TO  5 
3490  P1(I)=P1(I)/B(I) 

3500  NEXT  I 
3505  C3=C3-1 
'3510  IF  Z<5  THEN  1400 

3520  GO  TO  3050  ... 

3530  IF  H=113  THEN  3560 
3550  NEXT  19 
'3560  FOR  1=1  TO  5 
3570  P2(I)  =  P1(I)/SUM(P1)*100 
3580  NEXT  I 
’3600  P3=1 
3610  FOR  1=2  TO  5 
3620  IF  P2(P3)>P2(I)  THEN  3640 
3630  P3=I 
3640  NEXT  I 

'4010  IF  H=113  AND  L=5  THEN  5000 
4020  IF  R$=''Y''  OR  R$=’'y"  THEN  5000 

■  4030  PRINT  "U.1 .  MYOCARDIAL  IHFARCTI0N_J2.  ANG1NA_I3.  NON-SPECIFIC"} 
4040  PRINT  "CHEST  PAIN_14.  PNEUM0NIA_i5  •  PNEUMOMTKOHAX_l6 .  OTHER" 
4060  PRINT  "ENTER  THE  NUMBER  OF  YOUR  PRELIMINARY  DIAGNOSIS  :  "} 

4070  INPUT  Z$ 

’4080  IF  LEN(Z$)<>1  THEN  4060 
4090  IF  ASC(Z$)<49.  OR  ASC(Z$)>55  THEN  4060 
4100  P(ir4)=VAL(Z$) 

4110  IF  P(2)<6  THEN  4190 

4120  PRINT  "jLIENTER  NAME  OF  OTHER  DIAGNOSIS  :  "} 

4130  INPUT  Z$ 

4140  PRINT  "JJJThe  CHEST  PAIN  program  does  not  consider  this  disease 
4150  PRINT  "in  the  differ-_ential  diagnosis  of  acute  chest  pain. JJJJJJ" 
4155  PRINT  "JJJJ" 

4160  PRINT  ".IJJJJIIHPress  RETURN  for  'CASE  SUMMARY  PAGE'"} 

.4170  INPUT  Z$ 

'4180  GO  TO  5000 
"4190  IF  P(114)=P3  THEN  4560 
4194  PRINT  .@32,21  :0, 64 

4200  PRINT  "  At  this  time,  the  computer-generated  probabilities  D"; 
4210  PRINT  "0  HOT  AGREE  with_your  preliminary  diannosis. JJJJJ" 

4400  PRINT  @32,21:52,61.57 

4500  PRINT  "However,  as  of  yet,  there  are  no  specif io_categories  whic"; 
4510  PRI  "h  would  differentiate  your  preliminary  diagnosis  froiii_the  cu"; 
_4520  PRINT  "rrent  program-generated  diagnosis. IIIJJJ JJJJJJ JJJJJ" 

4530  PRINT  "JWOULD  YOU  LIKE  TO  MAKE  ANY  CHANGES?  (Y  or  N)  :  fi£"; 

4540  INPUT  Z$ 

_4542  IF  Z$="Y"  OR  Z$="y"  THEN  7010 
_4550  GO  TO  5000 

""4560  PRI  "JJJJJThe  progremi-generated  probabilities  AGREE  with  your  pro" 
4570  PRI  "visional  diagnosis.  JJJJPress  RETURN  for  'CASE  SUMMARY  PAGE’" 
_4580  input  Z$ 

4590  GO  TO  5000 
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RZCOnAtAUC^A  loMt  Q.OJi<l 


CoMiAucti  c(U>e.  ^uumoAy  pagu 


Dliptaij  hiito-iij  iijmptomi, 


P^plcuf  physical  symptom 


Simatatud  caAi.  notz  m  needed) 


PAinti  out  I' s  ItOA  each  (Warjyiuiii 


OAoiOyi  bcuigAaph 


pAaw.6  boAgAaph  baA.i 


4620  T$=SEG(J$,1 ,16) 

4630  0$=SEG(J4;,17,1) 

4640  FOR  K=18  TO  130 
4650-  ir$=SEG(  J$,K,1) 

4660  IF  ASC(Y$)=0  THEN  4710 
4670  P(K-17)=1 
4710  NEXT  K 
4720  Y$=SEG(J$,131 ,1) 

4730  A=ASC(Y$) 

4740  FOR  1=1  TO  5 
4750  Y$=SEG(J$,  1+13 1,1) 

4760  P2(I)=ASC(Y$) 

4770  NEXT  I 
4800  GO  TO  3600 

5000  PRINT  "L " . T$ . "IIHHHHHHPATIENT  SSN:  " ;S$;N$ ; "HI  AGE:  ";A 
5020  PRINT  (>32,21:0,95 

5030  PRINT  632,20:130,95,103,94.75,0,94.75,0,94.5,130,94.5 
5040  PRINT  632,21:0,8 

5050  PRINT  632,20:0,93,90,93,90,92.8,0,92.8,0,92.6,45,92.6,45,20,45,92.6 
5060  PRINT  632,20:90,92.6,90,7,0,7  ,0,15,18,15,18,7,18,15,36,15 
5070  PRINT  632,20:36,7,36,15,54,15,54,7,54,15,72,15,72,7  ,72,15,90,15 
5080  PRINT  632,20:90,7,90,15,75,15,90,15,90,7.2,0,7.2,0,7.4,90,7.4 
5090  PRINT  632,21:0,89 

5100  PRINT  "  HISTORY:!  PHYSICAL  EXAM:!" 

5110  FOR  1=1  TO  67 

5120  IF  P(I)=0  THEN  5160 

5140  Z$=SEG(B$,30*(I-1)+1,30) 

5150  PRINT  "  ”;Z$ 

5160  NEXT  I 
5170  PRINT  632,21 :0,83 
5180  FOR  1=68  TO  113 
5190  IF  P(I)=0  THEN  5220 
5200  2$=SEG(B$,30»(I-1)+1  ,30) 

5210  PRINT  USING  "28T,FA":Z$ 

5220  NEXT  I 

■5230  IF  05;="N"  OR  0$="n"  THEN  5260 
5240  PRINT  632,21:32.8,15.7 
5250  PRINT  "SIMULATED  CASE" 

■526O  PRINT  632,21  :2.4,11  .5 

5270  IMAGE  4D.11),"2",6D.1D,”J",8D.1D,"55",7D.1D,"?;",7D.1D,"%" 

5280  PRINT  USING  5270 : P2( 1 ) ,P2( 2) , P2( 3) ,P2( 4) , P2( 5) 

5290  PRINT  ■'  M.I.  ANGINA  HONSCP  PNEUMO  THORAX" 

■5300  PRINT  632,21:93,37.2 
5310  PRINT  632,20:130,37.2 
5320  PRINT  032,21:94,92 

5330  PRINT  032,20:94,52,130,52,130,52.3,94.2,52.2,94.2,92 
5340  PRINT  632,20:94,72,130,72 
5350  PRINT  @32,21  :97.5,49 
■5360  PRINT  "MI  AH  NS  PN  TH" 

5370  FOR  1=1  TO  5 

5380  IF  P2(I)<1  THEN  5440 

5390  PRINT  @32,21;97.4+(I-1)*5.4,52 

5400  FOR  K=0  TO  2.64  STEP  0.33 

5410  PRINT  @32,20:97.4+(I-1)*5.4+K,52+P2(I)*0.4 

5420  PRINT  e32,20;97.6+(I-1)*5.4+K,52+P2(I)*0.4,97.6+(I-1)*5.4+K,52 
5430  NEXT  K  •  •  ■ 

5440  NEXT  I 
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O-ihnlay  n<Lxt  dhoiad 

I  I  I  I  I  I  I  I  I  I  I  I  I 

V-U,jplay  ipKognoi-U)  option  -i^ 
M.I.  probability  i^b  high? -it. 


VZAl^y  dntry 


Flouj  dlrtctoA-i 


Update  ccue  counter 


Construct  cate  mejnory 


5450  PRINT  "■  JJJJIIIHHIIEXT  IKTERACTIOM  JIIIHH1  .  Change  Input  Data  III" 

5460  PRINT  ''11112.  Another  PiaKnosis  IIIHH?.  Display  Treatment"; 

5461  PRINT  "  J JIHH4 .  Obtain  Definition  IIIHH": 

5462  IF  P301  THEM  5468 

5463  PRINT  "5.  Prognosis  Prorram  IIIHH”: 

5464  PRINT  ”6.  End  Interaction" 

5466  GO  TO  5470 

5468  PRINT  "5.  End  interaction" 

5470  PRINT  ”  IIIHHCHOICE:  ■  ' 

5480  INPUT  Y$ 

5482  K$=T$ 

5490  IF  LEN(Y$)<>1  THEN  5470 
5500  IF  ASC{Y$)<49  OR  ASC(Y$)>54  THEN  5470 
5510  IF  Y$="1"  THEN  7010 
5520  IF  Y$="4"  THEN  9000 
6000  IF  0$=’'Y"  on  0$="y"  THEN  6040 
6010  Q(7)=Q(7)+1 
6020  Q(P3)=Q(P3)+1 
6030  GO  TO  6050 
6040  Q(8)=Q(8)+1 
6050  J$rT$&0$ 

6060  FOR  1=1  TO  113 
6070  T$=CHR(P(I))  18-130 

6080  J$=J$&T$  I3J 

6090  NEXT  I  132-136 

6100  T$=C1!R(A)  >37 

6110  J$=J$&T$ 

6120  FOR  1=1  TO  5  >39 

6130  T$=CHR{INT(P2(I)))  140-147 

6140  J$=J$&T$ 

6150  NEXT  I 
6160  T$=CHR(P3) 

6170  J$=J$tT$ 

6180  J$=J$&R4i 

6185  T$=CHR(P(114)) 

6186  J$=J$&T$ 


Time /date 

Sijmlated  or  real  choice  [V  or.  M) 
tymptom  array 
Patient' t  age 
Individual  probabilitiet 
«  0(5  diagnotit  with  hinhett  I 
Lait  caie  recalled  or  N! 
Corptman’t  provitional  dcagnotit 
Symptom  array  {,or  additional  in/^o 


Savet  unit  name,  cate  counter, 
latt  cate  and  Vx.  maltiolet 


Accett  appropriate  dataiile  and  writet 
cate  memory  tiring  onto  the  end 


Flow  directort 


61 8b 

6189 

6190 
6200 
6210 
6215 
6220 
6230 
6240 
6250 
6260 
6270 
6275 
6280 
6290 
6300 
631.0 
6320 
6330 
6340 


IF  Y$="5"  AND  P3=1  THEN  11000 
J$=J$&"00000000" 

FIND  13 
WRITE  N$,Q,J$ 

CLOSE 

IF  Q(7)+Q(8)>560  then  6280 
FIND  14+INT((Q(7)+Q(8))/40) 

ON  EOF  (0)  THEN  6260 
READ  @33:Z$ 

GO  TO  6240 
WRITE  J$ 

CLOSE 

IF  Y$="5"  AND  P301  THEN  6290 

GO  TO  VAL(Y$)-1  OF  1000,6320,11000,11000 

GOSUB  120 

PRINT  "JJJJIREHOVE  TAPE" 

END 

GOSUB  120 

PRINT  "ITREATMEMT  FILE  NOT  YET  INCLUDED  IN  PROG RAH.  1" 
GO  TO  170 
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Sub-^outim  changz-i 


GAaphZc^  to  cJi-Lctz 
data  zntAtZi 


DtipZay  16  dziinition  catagonizi 


7010  L=5 
7020  11=113 

7030  PRINT  NEW  INPUT  ;I1  DELETIONS  : " 

701)0  PRINT  (>32,21:0,100 

7050  PRINT  (.'32,20:130, 100, 130, 30, 65, 30, 65, 100  ,65. 2, 100, 65. 2, 30 ,0,30 

7060  PRINT  (>32, 20:0, 99. 8, 129. 8, 99. 8, 129. 8, 29. 8, 0.2, 29. 8, 0.2, 99. 8 

7070  PRINT  @32,20:0.2,99.7,129.9,99.8,129.9,30.1,0.1,30.1 

7080  PRINT  @32,21:5,95 

7090  PRINT  @32,20:25,95 

7100  PRINT  @32,21:70,95 

7110  PRINT  @32,20:90,95 

7120  PRINT  @32,21:0,23 

7130  FOR  1=1  TO  10 

711)0  PRINT  "LIMIT:.  25  ENTERIES  iK" 

7150  NEXT  I 
7160  U=90 
7170  W=90 
7180  GO  TO  3000 

7190  Z$=SEG(B$,30«(Z-1)+1  ,30)  . 

7200  IF  P(Z)=1  THEN  7250 

7210  PRINT  @32,21 :0,U-1 

7220  PRINT  USING  '’5D,2X,FA":Z,Z$ 

7230  U=U-3 

721)0  GO  TO  3410 

7250  PRINT  @32,21 :0,W-1 

7260  PRINT  USING  "41D,2X,FA":Z,Z$ 

7270  W=W-3 
7280  GO  TO  3460 

■  8000  Z$=SEG{ B$ ,494 1 +( Z-4 ) +( Z-5 ) *3 ,  D 
8020  V=ASC{.Z$) 

8030  Z$=SEG(D$,494U(2-4)+(Z-5)*3+1  ,1) 

8040  V=V+ASC{Z$)/100 

80 50  Z$=SEG(  B$  ,494 1  +{  Z-4 )  +(  Z-5 )  *3+2 , 1 ) 

8060  U=ASC(Z$) 

8070  Z$=SEG(B$,4941+(Z-4)  +  ( Z-5) *3+3,1) 

8080  W=W+ASC(Z$)/100 
8090  IF  P(Z)=1  THEN  8170 
6100  FOR  K=1  TO  3 
8110  W=W+0.25 

8120  PRINT  @32,21 :V-3.4,W-0.65 

8130  PRINT  @32,20:V-3.4,W+1.85,V-0.9,VI+3.35,V+2.1  ,W+3.35,V+4.6,W+1.85 
8140  PRINT  @32,20:V+4.6,W-0.65,V+2.1  ,W-2.15,V-0.9,W-2.15,V-3.4,W-0.65 
8150  NEXT  K 

8155  IF  Z=>16  AND  Z<=29  THEN  13000 
6160  RETURN 

8170  PRINT  @32,21 :V+0.4,W+1 

8180  PRI  @32,20:V+4.4,W+5,V+4.6,W+4.8,V-3.2,W-3.1  ,  V-3 .4  ,W-2.9  ,  V+0  .4  ,W+1 
8190  PRI  @32,20:V-3.4,W+4 .8 , V-3 .2 ,W+5 , V+4 .6 ,W-2.9 , V+4 .4 ,W-3 . 1 ,V+0 .4 ,W+1 
_8200  RETURN 
9000  GOSUB  120 
9010  FOR  1=1  TO  16 
9020  A$=SEG(D$, 1*18-17, 18) 

9030  Z$=SEG(D$,(I+16)*16-17,18) 

9040  PRINT  USING  “9D,FA,2X,FA ,  10X,4D,FA,2X,FA'' :I ,  A$  ,1+1 6  ,  Z$ 
9050  NEXT  I 
9060  1=33 

9070  A$=SEG(D$, 33*1 6-17, 18) 

9080  PRINT  USING  "44D,FA,2X,FA":I,".",A$ 

9090  PRINT  "iLal" 

9100  PRINT  "  WHICH  DEFINITION  WOULD  YOU  LIKE  : 
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Inmi  dz^-in^tcon  choice. 


Va^-idation  chzak 


Acce-6-6  dzi-inition  data 
and  AZad  KzqaUttd  owe 


Gaapkicji  ioK  do-ilnltlon  0,5 
che^t  -ioand-i 


FZow  d-iAZctoA.^ 


Gaapkic-i  ioa  page  2  OjJ  dcuta.  -ifiee-t 
(dAOLO^  thoaaK,  wecfe  awd  ch-Ln) 


9110  INPUT  Z$ 

9120  If  LEK(Z$)<1  OR  LEN(Z$)>2  THEN  9100 
9130  IF  LEN(Z$)  THEN  9160 
911)0  A$=SEG(Z$,2,1) 

9150  IF  ASC(A$)<48  or  ASC(A$)>57  THEN  9100 
9160  A$=SEG(Z$,1 ,1) 

9170  IF  ASC(A$)<48  OR  ASC(A$)>57  THEN  9100 
9180  C=VAL(Z$) 

9190  FIND  9 
9200  FOR  1=1  TO  C 
9210  READ  e33:A$ 

9220  NEXT  I 
9230  PRINT  A$ 

'9240  IF  C<>32  THEN  10000 
9250  PRINT  632,21:18.4,32.25 
9260  FOR  1=4.6  TO  23.6  STEP  0.2 
9270  PRINT  e32,20:I»4,(SIN(I)+2.65)*8+19 
9280  NEXT  I 
9285  RESTORE  9420 
9290  FOR  L=1  TO  3 
9300  FOR  1=1  TO  7 
9310  GOSUB  9410 
9320  PRINT-  §32,21  ;J,K 
9330  PRINT 
9340  NEXT  I 
9350  RESTORE  9420 
9360  NEXT  L 
9370  GO  TO  10000 
9380  PRINT  §32,21:0,46 

9390  PRINT  USING  "8X, FA, 35X,FA":"8ales-'’, "-Inspiration" 

9400  PRINT  USING  "4/ ,54x, fa" : "-Expiration" 

9410  READ  J,K 

9420  DATA  25.75,45,28,47,26.75,47,27.5,46,27,45.5,26.5,46,28.5,47.5 

9430  CO  TO  L  OF  9440,9450,9470 

9440  RETURN 

9450  J=J+25 

9460  RETURN 

9470  J=J-^50 

9480  RETURN 

10000  PRINT  §32,21:82,0 

10010  PRINT  "Press  RETURN  to  continue. 1" 

10020  INPUT  Z$ 

10030  IF  Y$="l"  OR  Y$="2"  OR  Y$="3"  THEN  108 
10040  GO  TO  5000 
10050  END 

11000  DELETE  100,10050 
11010  FIND  7 
11020  CALL  "link", 100 
_ 11030  END 
12000  RESTORE  12010 
12002  T=0 

12004  MOVE  27,90 

12005  FOR  1=1  TO  36 

12007  read  A1,ni 

12008  RDRAM  A1,B1 

12009  next  I 

12010  DATA  8,0, 0,-7  ,8,-1  .5, 9, -13. 75, -5, -2. 5, -7  , 10.75,0,-18,-9,6 
12020  DATA  -9,-6,0,18,-7,-10.75,-5,2.25,9,14,8,1  .5,0,7 

12030  DATA  2, -2. 5, 4, 0,2, 2. 5, 0,-7 ,-4,-2, -4, 2, -8, -1.5, 0,-3. 5 

12040  DATA  7.5,-3.75,0,-13.25,0,13.25,4.5,4.75,0,2,0,-2,4.5,-4.75 

12050  DATA  0,-13.25,-9,0,9,0,0,13.25,7.5,3.75,0  ,3.5 

12060  IF  T=1  THEN  12110 

12070  MOVE  93-5,90 

12080  RESTORE  12010 

12090  T=1 

12100  GO  TO  12005 

_ 121 10  GO  TO  3000  , 


39 


Fiow  dvizctoA^  (Jo/t  g/tapfi-cc^  to  (^ttl 
in  ^itz  0^  pain  and  nadiation 


Sub-itSAnal 


Lz{,t  ^idz 


Right  ^idz 


ipigaitAic. 


Right  anm 


Lzat  oAin 


ShoaidZA^ 


13000  IF  Z=21  Oli  z=29  THEM  8160 

13002  Z1=z-15 

13005  IF  Z1>9  THEM  13OO9 

13008  GO  TO  Z1  OF  13015, 13070, 1^)010, 1^090,15050, 13060, 15155, 15100, 15100 

13009  Z2=21-9 

13010  GO  TO  Z2  OF  151100,15210,15330,15375 
13015  PRINT  @32,21 :31 ,79 

13 020  FOR  W=0.25  TO  5  STEP  0.25 

13030  PRINT  e32,20:35.75-M,7U.5-M,35.75-M,60.75+H,31 ,63.75+H 

1301(0  PRINT  @32, 20:26. 25+M, 60.78+11, 26. 25+M, 711. 25, 31 ,79. 25-M 

13050  NEXT  M 

I306O  GO  TO  1 1)000 

13070  PRINT  @32,21  :22,6l) 

13072  FOR  M=0.25  TO  5.25  STEP  0.25 

13073  PRINT  @32,20:21 .75+H, 70. 25-H, 1)0. 25-M, 70. 25-M 
I3O7I)  PRINT  e32,20:i)0.25-M,63.75+M,21  .75+H,63.75+M 
13075  NEXT  M 

11)000  RETURN 

11)010  PRINT  @32,21:35.5,711.25 
11)020  FOR  M=0  TO  3.25  STEP  0.25 

11)030  PRINT  @32,20  :110-M,76-M,i10-M,58+M, 35. 5+M,6l+M 
11)050  PRINT  @32, 20:35. 5+M,7l). 25-M 
11)060  NEXT  M 
11)080  RETURN 

11)090  PRINT  @32,21:22,58 
15000  FOR  M=0  TO  3.25  STEP  0.25 

15010  PRINT  @32, 20:22+11, 76-M, 26. 5-H, 711, 25-H, 26  .5-M,6l+M 
15020  PRINT  @32,20:22+H,58+M 
15030  NEXT  M 
1501)0  RETURN 

'15050  PRINT  @32,21:31,61) 

15060  FOR  M=0  TO  3  STEP  0.25 

15070  PRINT  @32, 20:35. 5-M, 61  ,26.5+11,61  ,31  ,6D-M 

150  80  NEXT  M 

1  5090  RETURN 

'15100  PRINT  @32,21  :85.5,81  .5 
15110  FOR  M=0  TO  6.75  STEP  0.25 

15120  PRINT  @32, 20:85. 5-tV2,78-M, 85. 5, 78-H, 88. 5-1-1/5,76,81  .5-M/5,65  .25+M 

15130  PRINT  @32,20:76.5+11,67.5+11,85.5,81  .5-M 

1511)0  NEXT  H 

1511)5  IF  Z=211  THEN  15155 

15150  RETURN 

'15155  PRINT  @32,21:109.5,81.5 
15160  FOR  M=0  TO  5.5  STEP  0.25 

15170  PRINT  @32, 20: 118. 5-11, 67. 5,11 3. 5+H/il, 65. 25+M,1  06. 5+11,76.75-11 
I5I8O  PRINT  e32,20:109.5+M/12,78-M/12,109.5,8l  .5-M/5 
15185  NEXT  M 
15200  RETURN 

'15210  PRINT  @32,21  :85.5,81.5 
15220  FOR  [1=0  TO  6  STEP  0.25 

15230  PRINT  @32,20:93.5,83-11,97.5-11,81  ,97. 5-M, 79, 93, 71). 25+M 
1521)0  PRINT  @32, 20:85.5+1-1, 78, 85. 5+M, 81  .5-11 
15250  NEXT  H 

15270  PRINT  @32,21  :97.5,81 
15275  FOR  M=0  TO  6  STEP  0.25 

15280  PRINT  @32,20:101 .5, 83-H, 109. 5-M, 81 .5, 109. 5-M, 78 
15300  PRINT  @32, 20:102,71). 25+M, 97  .5+11, 79, 97. 5+M, 81 
15310  NEXT  M 
15320  RETURN 
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GAap/t-tc4  to  iitt  in-,  Necfe 


Jaw 


OKOMi,  oAKom  to  tiie.  back 


UndeAtinZyi  majof^  hcadtng-i  on 
datcuhzct  pagz-i 


15330  PRINT  @32,21:93.5,83 
15335  FOR  M=0  TO  5  STEP  0.25 

153*10  PRINT  @32, 20 :93. 5, 90-M/5, 95. 5, 87. 5-11,99.5, 87.5-1-1,101  .5,90-11/5 
15350  PRINT  @32,20:101  .5-H,83■^M/7, 97.5  ,81■^M,93.5■^M, 83 
15360  NEXT  M 
15370  RETURN 

15375  PRINT  @32,21:93.5,90 
15377  FOR  M=0  TO  2.25  STEP  0.25 

15380  PRINT  @32,20:101  .5-M,90,99.5-M,87.5+M,95.5■<•M,87.5■^l■l,93.5■^H,90 
15382  NEXT  M 
15390  RETURN 

15*100  PRINT  @32,21:88.5,63 
15*105  FOR  M=0  TO  215  STEP  0.1 
15*110  PRINT  @32,20:88.5-M,63■^M 
15*120  NEXT  M 

15*130  FOR  M=0  TO  1.5  STEP  0.1 
15*1*10  PRINT  e32,20.•85.9■^M,65.6+M 
15*1*15  NEXT  M 

15*150  PRINT  @32,20:86,67.5,87.5,67.2,87.5,65.7 

15*160  PRINT  @32,21  :106.5,63 

15*170  FOR  1-5=0  TO  2.5  STEP  0.1 

15*180  PRINT  @32,20:106.5+M,63-t-M 

15*190  NEXT  M 

15500  FOR  M=0  TO  1.5  STEP  0.1 
15510  PRINT  @32, 20:109. 1-M, 65. 6+M 
15520  NEXT  M 

15530  PRINT  @32,20:109,67.5,107.5,67.2,107.5,65.7 

155*10  RETURN 

16000  GO  TO  19  OF  16010,16017,16017,16020,16030,160*10,16070 

16010  MOVE  0,84 

16015  DRAW  6,84 

16017  RETURN 

16020  MOVE  0,92.2 

16025  DRAW  24,92.2 

16027  RETURN 

I6O3O  MOVE  0,98 

16035  DRAW  20,98 

16037  MOVE  0,55.5 

16038  DRAW  19,55.5 

16039  RETURN 

16040  MOVE  0,69.5 
16050  DRAW  34,69.5 
16 060  RETURN 
16070  HOVE  0,89.5 
16080  DRAW  46,89.5 
16090  RETURN 
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PROGRAM  11  -  DATA  ENTRY  REMINDERS 
SUMMARY  PAGE 

DATASHEET  ITEM  NAMES  AND  DATABASE 

Program  11  contains  three  BINARY  DATA  strings.  The  first  two 
data  strings  are  the  displays  for  the  'data  entry  reminders'  and  the 
'summary  page',  both  of  which  are  displayed  at  the  beginning  of  the 
diagnostic  program.  Initial  construction  of  these  data  strings 
required  input  of  test  'operators.'  String  construction  was  performed 
by  utility  programs  and  entered  onto  the  file  as  data.  They  cannot  be 
read  out  literally  since  the  text  operators  perform  their  designated 
functions  when  printed.  The  following  two  displays  are  the  individual 
strings  as  they  appear  when  printed. 


DATA  ENTRY  REMINDER  STRING  - 


REMEMBER...  1. 

2. 

3. 

4. 

5. 

6. 


Use  DATASHEETS  when  entering  data. 
Enter  information  by  CODE  NUMBER. 
Follow  each  code  number  with  RETURN. 
RE-ENTER  codes  to  erase. 

INPUT  CHANGES  can  be  made  at  the  END. 
Press  RETURN  to  go  on  to  next  page. 


Press  RETURN  to  continue. 


SUMMARY  PAGE  STRING 

The  computer-assisted  diagnosis  program  can  aid  the  Corpsman  in 
differentiating  illnesses  which  represent  both  the  most  common  and 
most  serious  causes  of  acute  chest  pain. 

The  five  illnesses  which  are  considered  by  the  computer  are 
MYOCARDIAL  INFARCTION,  ANGINA,  NON-SPECIFIC  CHEST  PAIN,  PNEUMONIA, 
and  PNEUMOTHORAX.  Non-specific  chest  pain  is  intended  to  include  those 
cases  which  are  non-surgical ,  not  life-threatening,  and,  therefore, 
not  reasons  for  evacuation. 

In  addition  to  diagnosis,  the  chest  pain  computer  program  provides 
probabilities  for  the  occurrence  of  3  classes  of  post  M.I.  complications. 
These  are:  NO  PROBLEMS,  ARRYTHMIA,  and  PUMP  FAILURE.  It  also  predicts 
the  likelihood  of  LIFE/DEATH  post  M.I. 
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IMPORTANT:  Supplemental  programs  for  the  prediction  of 

complications  and  the  prediction  of  life/death  are  used  only  with 
cases  of  M.I. 

THE  CORPSMAN'S  JUDGMENT  MUST  TAKE  PRECEDENCE  when  any  doubt  exists. 
The  computer  does  not  have  the  capability  to  think  or  make  the  sub¬ 
jective  evaluations  which  are  so  important  in  medical  diagnosis. 


The  last  character  string  is  the  diagnostic  database  (B$).  The 
diagnostic  database  has  three  components;  the  first  (SEG  1  to  3390) 
containes  the  datasheet  item  names  and  is  used  to  construct  the  Case 
Summary  Page,  the  second  (SEG  3391  to  4520)  contains  the  conditional 
probabilities  used  to  compute  the  diagnostic  probabilities  as  each 
datasheet  item  is  entered,  and  the  third  section  contains  the  datasheet 
item  number  display  coordinates  in  ASCII  format. 

The  datasheet  item  names  are  contained  in  30  character  segments. 
Access  to  a  particular  item  name  merely  requires  multiplying  the  item 
number  by  30  and  accessing  the  preceding  30  characters  (see  lines  5140 
&  5200  of  the  diagnostic  program) . 

The  conditional  probabilities  are  in  segments  of  10  characters; 
two  characters  for  each  diagnostic  category.  Access  to  one  group  of 
conditional  probabilities  requires  multiplying  the  item  number  by  10, 
adding  3390  (length  of  datasheet  names) ,  and  accessing  the  preceding 
10  characters.  NOTE:  The  conditional  probabilities  cannot  be 
released  at  this  time. 

The  datasheet  item  number  display  coordinates  are  appended  to  the 
end  of  the  conditional  probabilities  and  are  in  ASCII  format  and, 
therefore,  not  amenable  to  literal  display.  Each  coordinate  is  composed 
of  two  characters  which,  when  converted  to  'real'  numbers,  are  separated 
by  a  decimal  point  to  yield  the  exact  location  of  each  datasheet  item 
number  on  the  display  screen. 
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DIAGNOSTIC  DATABASE  (B$)  (First  segment  only) 


AGE  <30  AGE  30-39  AGE  40-49 

AGE  49+  DURATION  <iHR 

DURATION  1-2HR  DURATION  2-4HR  DURATI 

ON  4-12HR  DURATION  >12HR  ONSET  SUDDEN 

ONSET  GRADUAL  CONTINUOUS  PAIN 

INTERMITTENT  PAIN  RADIATION  YES  RADIATION  HO 

SITE  CENTRAL  SITE  ACROSS 

SITE  LT.  SIDE  SITE  RT.  SIDE  SITE  E 

PIGASTRIC  SITE  OTHER  RADIATION  TO  LEFT 

ARM  RADIATION  TO  RIGHT  ARM  RADIATION  TO  BOTH  ARMS 

RADIATION  TO  BACK  RADIATION  TO  SHOULDER  RADIATION  TO 

NECK  RADIATION  TO  JAW  RADIATION  TO  OTHER 

NUMBNESS  PRESENT  HO  NUMBNESS  PAIN  M 

ODERhTE  PAIN  SEVERE  PROGRESS  NOW  BETTE 

R  PROGRESS  NOW  WORSE  MOUEMENT  AGGRAVATES 

COUGH  AGGRAVATES  BREATHING  AGGRAVATES  SITTING  AGGR 

hVATES  AGGRAVATED  BY  OTHER  NOTHING  AGGRAVATES 

NITRO  RELIEVES  REST  RELIEVES  WALK IN 

G  RELIEVES  RELIEVED  BY  OTHER  NOTHING  RELIEVES 

NO  DYSPNEA  DYSPNEA  THIS  ILLNESS 

HABITUAL  DYSPNEA  NO  COUGH  COUGH  THIS  I 

LLHESS  HABITUAL  COUGH  NAUSEA  PRESENT 

NO  NAUSEA  VOMITING  PRESENT  NO  VOM 

ITIHG  APPETITE  NORMAL  APPETITE  DECREASED 

BOWELS  NORMAL  CONSTIPATION  PRESENT 

DIARRHEA  PRESENT  PREVIOUS  CHEST  PAIN  HO  PREVIOUS 

CHEST  PAIN  PREVIOUS  ILLNESS  HO  PREVIOUS  ILLNESS 

PREVIOUS  SURGERY  NO  PREVIOUS  SURGERY  TEMP  < 


9S.D 


TEMP  93.6-100.2 


TEMP  100.3-102 


TEMP  >102  PULSE  <60 

PULSE  60-80  PULSE  31-180  PULSE  >100 

SYSTOLIC  BP  <100  SYSTOLIC  BP  100-120 

SYSTOLIC  BP  121-140  SYSTOLIC  BP  141-160  SYSTOL 

IC  BP  >160  DIASTOLIC  BP  <?0  DIASTOLIC  BP  71-80 

DIASTOLIC  BP  81-90  DIASTOLIC  BP  91-100 

DIASTOLIC  BP  >180  MOOD  NORMAL  MOOD  ANXIOUS 

MOOD  DISTRESSED  COLOR  NORMAL 

COLOR  PALE  COLOR  FLUSHED  COLOR 

CYANOTIC  SWEATING  PRESENT  NO  SWEATING 

SHIVERING  PRESENT  NO  SHIVERING 

JVP  NORMAL  JVP  ELEVATED  RESP.  MOV.  N 

ORMAL  RESP.  MOV.  ABNORMAL  HEART  SOUNDS  NORMAL 

HEART  SOUNDS  ABNORMAL  PERCUSSION  NORMAL  PERCUS 

SION  DULL  PERCUSSION  HYPER-RESONANT  CHEST  SOUNDS  NORMA 

L  CHEST  SOUNDS  RHOHCHI  CHEST  SOUNDS  RALES 

CHEST  SOUNDS  DECREASED  SCOT  <59  SCOT  51-100 

SLOT  101-200  SCOT  >200 
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PROGRAM  12  -  DATASHEET  DISPLAY  PAGES  STRINGS 


Program  12  contains  the  seven  datasheet  display  pages  which  are 
presented  during  data  input.  These  pages  are  contained  in  file  12  as 
BINARY  DATA  and  are  read  and  displayed  by  the  diagnostic  program. 

The  following  displays  are  the  individual  character  strings  as  they 
appear  when  printed. 

DISPLAY  PAGE  STRING  #1 
PAIN 

DURATION  OF  PAIN: 

<1  HR - (5)  2-4  HR - (7) 

1-2  HR - (6)  4-12  HR - (8) 

>12  HR - (9) 

TIME  COURSE  OF  PAIN; 

CONTINUOUS - (12) 

INTERMITTENT - (13) 


DISPLAY  PAGE  STRING  #2 


SHOULDER - (26) 

NECK - (27) 

JAW - (28) 

OTHER - (29) 


SITE  OF  PAIN: 

CENTRAL - (16) 

ACROSS - (17) 

LT.  SIDE - (18) 


RT.  SIDE - (19) 

EPIGASTRIC- (20) 
OTHER - (21) 


RADIATES  TO: 

LT.  ARM - (22) 

RT.  ARM - (23) 

BOTH  ARMS- (24) 
BACK - (25) 


RADIATION: 

yes - (14)  NO - (15) 


ONSET  OF  PAIN: 

SUDDEN - (10)  GRADUAL— (11) 
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DISPLAY  PAGE  STRING  #3 

NUMBNESS: 

YES - 

(30) 

NO - 

(31) 

SEVERITY  OF  PAIN: 

MODERATE - 

(32) 

SEVERE - 

(33) 

PROGRESS : 

BETTER - 

(34) 

WORSE - 

(35) 

AGGRAVATING  FACTORS: 

• 

MOVEMENT - 

(36) 

COUGH - 

(37) 

BREATHING - 

—  (38) 

SITTING - 

(39) 

OTHER - 

(40) 

NONE - 

—  (41) 

'  RELIEVING  FACTORS: 

•  NITRO - 

(42) 

REST - 

(43) 

WALKING - 

—  (44) 

OTHER - 

(45) 

NONE - 

(46) 

DISPLAY  PAGE  STRING  #'4 

DYSPNEA: 

NO - 

(47) 

THIS  ILLNESS 

-(48) 

HABITUAL - 

—  (49) 

COUGH : 

NO - 

(50) 

THIS  ILLNESS 

-(51) 

HABITUAL - 

•—(52) 

NAUSEA: 

YES - 

(53) 

NO - 

-(54) 

VOMITING : 

YES - 

(55) 

NO - 

-(56) 

APPETITE: 

• 

NORMAL - 

(57) 

DECREASED - 

-(58) 

BOWELS : 

NORMAL - 

(59) 

CONSTIPATED- 

-(60) 

DIARRHEA - 

- (61) 
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DISPLAY  PAGE  STRING  #5 


MOOD: 

NORMAL - (86)  ANXIOUS - (87)  DISTRESSED- (88) 

COLOR: 

NORMAL - (89)  PALE - (90)  FLUSHED - (91) 


GENERAL  EXAMINATION 
SWEATING : 

.YES - (93)  NO - (94) 

SHIVERING: 

YES - (95)  NO - (96) 

JUGULAR  VENOUS  PULSE:  ■' 

NORMAL - (97)  RAISED - (98) 

RESPIRATORY  MOVEMENT: 

NORMAL - (99)  ABNORMAL - (100) 


DISPLAY  PAGE  STRING  #6 

PAST  HISTORY 

PREVIOUS  CHEST  PAIN: 

YES- - -(62)  NO - (63) 

PREVIOUS  CARDIO-RESPIRATORY  ILLNESS: 

YES - (64)  NO - (65) 

PREVIOUS  MAJOR  SURGERY: 

YES - (66)  NO - (67) 


VITAL  SIGNS 


TEMPERATURE  PULSE 


<98.6-(68) 
98. 6-100. 2-(69) 

100.3-102 - (70) 

>102 - (71) 


<60-(72) 
60-80- (73) 
81-100-  (74) 
>100-(75) 


BLOOD 

systolic 
■  <100-(76) 
100-120- (77) 
121-140-(78) 
141-160-(79) 
>160-(80) 


CYANOTIC — (92) 


PRESSURE 

diastolic 

<70-(81) 

71-80-(82) 

81-90-(83) 

91-100-(84) 

>100-(85) 
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DISPLAY  PAGE  STRING  #7 
GENERAL  EXAMINATION  (cont’d) 

HEART  SOUNDS: 

NORMAL — (101)  ABNORMAL — (102) 

PERCUSSION: 

NORMAL — (103)  DULL - (104) 

CHEST  SOUNDS: 

NORMAL — (106)  RHONCHI - (107) 

SGOT: 

<50 - (110)  51-100 - (111) 


HYPER¬ 
RESONANT — (105) 


RALES - (108)  DECREASED — (109) 


101-200 - (112)  >200 - (113) 
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PROGRAM  13  -  NAME,  CASE  COUNTER,  LAST  CASE  MEMORY 


PROGRAM  13  allows  space  for  the  name  of  the  boat  to  which  the 
tape  belongs  (N$ ;  at  the  present  time,  the  name  has  been  set  to 
NAVSUBMEDRSCHLAB) ,  the  case  counter  (Q) ,  and  the  'last  case'  stored 
as  J$ .  The  name  is  a  string  50  characters  long  and  is  accessed  by 
' READ@33 ;N$ ' -  The  case  counter  is  an  8  column,  array  where  Q(l) 
through  Q(5)  represent  the  number  of  cases  of  each  category  which 
have  been  placed  into  memory  as  either  simulated  or  real  cases. 

Q(7)  and  Q(8)  represent  the  number  of  real  and  simulated  cases, 
respectively.  The  Q  array  must  be  dimensioned  to  8  before  reading. 
The  last  case  is  stored  after  Q  as  a  147  character  string  (refer  to 
lines  6050  -  6189  for  segmental  listing),  J$. 


PROGRAMS  14  THROUGH  27  -  DATAFILES 


PROGRAMS  14  through  27  allow  space  for  all  cases  which  are  placed 
into  memory.  Each  datafile  is  'primed'  with  the  name  of  the  research 
laboratory  (NAVSUBMEDRSCHLAB)  as  a  50  character  string  and  each  case 
run  on  the  diagnostic  program  is  sequentially  added  to  each  file  to  a 
maximum  of  40  cases  in  each  file.  After  the  40th  case,  the  next  case  is 
entered  onto , the  next  datafile.  If  all  datafiles  become  full  (containing 
560  cases) ,  data  will  no  longer  be  entered  onto  datafiles  but  will 
still  be  entered  into  file  13  as  the  'last  case'. 


3.2  THE  PROGNOSTIC  PROGRAM  (PROGRAM  7) 

' The  prognostic  program  calculates  probabilities  that  a  patient 
suspected  of  MYOCARDIAL  INFARCTION  will  develop  one  of  three  kinds 
of  problems  (No  problems,  Arrythmia,  and  Pump  failure)  and  the 
likelihood  that  the  same  patient  will  live  or  die  even  if  placed 
in  a  hospital . 

The  user  accesses  the  prognostic  program  by  way  of  the  chest 
pain  diagnostic  program  (Program  10) .  The  chest  pain  diagnostic 
probability  must  be  highest  for  MYOCARDIAL  INFARCTION  before  the 
user  is  given  the  option  to  obtain  prognostic  probabilities. 

On  the  following  pages  the  program  is  reproduced  with  some 
notes  to  aid  in  understanding  the  flow  of  the  program.  The  line 
demarcations  below  serve  to  provide  additional  information  regarding 
program  organization. 


LINES 

FUNCTION 

100 

-  410 

Sets  variables  and  calculates  probabilities  for 
problems  using  symptom  profile  from  diagnostic 

program 

420 

-  910 

Case  summary  page  construction 

912 

-  1040 

Resets  variables,  display  additonal  symptom  page 

1045 

-  1250 

Additional  data  input  subroutine 

1265 

-  1790 

Calculates  probabilities  for  live/die  prognosis, 
goes  to  case  summary  page  and  draws  bar  graph 

1792 

-  1910 

Augments  case  memory  string  with  additional  symptoms, 
saves  it  in  data  file  and  then  offers  choices  for 
next  interaction 

5000 

-  5050 

Calculates  running  probabilities 

8000 

-  9020 

Draws  circle  or  'X*  for  input  page 
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i^^tmiu-Con  uoA-iabte^  and 
^zt  inJXdjai  ualuz^ 


~Accz^I~3^ata~SIIe~an3~^ 
data  -itAtng-l) 


CaZcjaZatZA  zondtttonal 
■pAobabiLLtiz-i  (,0A  pAobizmi 


Cataxiatz-i  ^IncUL  pAobabllttizz, 
^oA  pAoblznU, 


VlipZayi  hzading^li  diipZaij 


GAapktc-i  ioA  d-iiplay  pagz 


DiAptcaj  h-U>toAy  and  phy^tcaZ 
zxam  symptom 


?Ainti  "^tmuZatzd  ca^z" 
lokzn  AZqcuAzd 

pAtnt^  out  %  pAobabititA-ZA 
^OA  pAobZzm.(> 


GAaphlci  ioA  boAgAaph 


SSN:  ’’:S$:"IIII  AGE:  ";A; 


100  REU 

1 10  DIM  P7(3)  ,I’'j(3)  ,Ci;(YOO ),!>$(  300)  .P6(  30)  ,U(760)  ,D(2) 

120  J1=0 

lAO  P7=i  pAobabilittzA  (JoA.  zaZzaZating 

1115  B1=0  pAogyio-i>tLz  pAobZzmi 

~  270  FIND  8  r,j.  j-  ,  ,  0 

280  READ  e33:C$,P$,L$  ^.-zipZay  {,oA  add-ctconaZ 

“290  FOR  1=1  TO  113  ■iymptom  -input 

300  IF  P(I)=0  THEN  380  .  .  l  l  ■  o 

310  FOR  «J~  1  TO  3  /-Y"  qO-^ 

320  Z$=SEG(C$,(l-i)*6+(2»J-l)  ,2)  zaZzuZ^onA),  md  na^z^  and 

330  d(o^=val(z$)  Co ~ oA.ci't.)'w,-tC4  Oq  Q,(ici^ix.oyu^-^ 

340  NEXT  j  tymptoms, 

350  FOR  J=1  TO  3 
360  P7(J)=P7(J)*B(  J) 

370  NEXT  J 
_  380  NEXT  I 

390  FOR  1=1  TO  3 
400  P5(I)=P7{I)/SUM(P7)*100 
_  410  NEXT  I 

420  IF  B1=1  THEN  435 

430  PRINT  "L'‘.K$.»'IIHHHHHHPATIENT  SSN:  ’’:S^:"IIII  AGE:  ";A; 

_  432  GO  TO  440 

435  PRINT  "L" . K£ .  "IIHHHHHHPATIENT  SSN:  '■;Si:’’ITII  »AGE:  ";A; 

437  PRINT  "JllLIFE/DEATH  PROBABILITIES  (MI  only)" 

_  438  GO  TO  450 

440  PRINT  "^PROGNOSIS  PROBABILITIES-COMPLICATIONS  (MI  only)" 

450  PRINT  @32,21:0, 95 

460  PRINT  @32,20:130,95,103,94.75,0,94.75,0,94.5,130,94.5 
470  PRINT  @32,21:0,8 

480  PRINT  @32,20:0,93,90,93,90,92.8,0,92.3,0,92:6,45,92.6,45,20,45,92.6 

485  IF  B1=0  THEN  490 

486  PRINT  @32,20:90,92.6,90,7,0,7,0,15,45,15,45,7,45,15,90,15,90,7 

487  PRINT  @32,20:90,15,90,7.2 
480  GO  TO  510 

490  PRINT  @32,20:90,92.6,90,7,0,7,0,15,30,15,30,7,30,15,60,15 
500  PRINT  @32,20:60,7,60,15,90,15,90,7,90,15,75,15,90,15,90,7.2 

510  PRINT  @32,2010,7.2,0,7.4,90,7.4 
520  PRINT  @32,21:0,89 

530  PRINT  "  HISTORI:!  PHYSICAL  EXAtl:^" 

_  532  IF  B1=1  THEN  1410 
540  FOR  1=1  TO  67 
550  IF  P(I)=0  THEN  580 
560  Z$=SEG(B$,30*(I-1)+1,30) 

570  PRINT  "  ";Z$ 

580  NEXT  I 

.  585  PRINT  @32,21:0,83' 

590  FOR  1=68  TO  113 

600  IF  P(I)=0  THEN  63O 

610  2$=SEG(B$,30*(I-1)+1 ,30) 

620  PRINT  USING  "28T,FA":Z$ 

_  630  NEXT  I 

640  IF  0$=ni"  OR  0$="n"  THEN  670 
650  PRINT  @32,21:32.8,15.7 

_  660  PRINT  "SIMULATED  CASE" 

670  PRINT  @32,21:2.4,11.5 

680  IMAGE  6D.1D,"?",15D.1D,"?",12D.1D,"f," 

690  PRINT  USING  680:P5(  1)  ,P5(2)  ,P5(3) 

_710  PRINT  "  NO  PROBLEMS  ARRYTIIMIA  PUMP  FAILURE" 

720  PRINT  @32,21:93,37.2 
730  PRINT  @32,20:130,37.2 
740  PRINT  @32,21  :94,92 

750  PRINT  @32,20:94,52,130,52,130,52.3,94.2,52.2,94.2,92 
760  PRINT  @32,20:94,72,130,72 
770  PRINT  @32.21  :97.5.49 
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PAinti  out  boAgAaph  and 
{,ootnott  ioA  pAobiems 


Rue.t6  voA-iablej)  {^oA 
Zivt/dte.  calcatationA 


Vtiplay  page,  additionat 
i^ptom  -input 


Additional  -iymptom  «  input 
and  validity  check 


ExtAacti  live/die  pAobabilitie-^ 
^Aom  L$ 


Flow  diAectoA-i 


Calculates  iinal  pAobabiZities 
{jOA  ■live/die 


775  If  li1  =  1  TllUN  17 »0 
780  PniUT  "  NP  AR  PF" 

790  FOR  1=1  TO  3 

800  IF  P5(I)<1  THEM  860 

810  PRIHT  @32,21:97.^+1*5.4,52 

820  FOR  K=0  TO  2.64  STEP  0.33 

830  PRINT  @32, 20:97. 4+1*5. 4+K,52+P5(I)*0. 4 

840  PRINT  @32,20:97. 6+1*5. 4+K,52+P5(I)*0. 4, 97. 6+1*5. 4+K, 52 

850  HEXT  K 

860  NEXT  I 

870  PRINT  '‘IJJJJIIIHIICODES  (NP/AR/PF)" 

880  PRINT  ”  JIIIHHMP  =  Mo  Problems  IIIHHAR  =  Arrvthmla  IITHH": 

890  PRINT  "PF  =  Puaip  Failure" 

900  PRINT  "JJJJJJPress  Return  for  LIFE/DEATH  Probabilities 
910  INPUT  2$ 

912  D=1 

913  B1  =  1 
915  P6=0 

917  A6  =  1 

918  R=1 

920  PRINT  P$ 

930  PRIHT  @32,21  :0,18 

940  PRINT  @32,20:130,18,130,0,0,0,0,18 

950  PRINT  ”1  INPUT  DATA  CODES:I  (re-enter  to  delete)"; 

960  E=0 
970  F=9.5 
980  C=0 
990  C=C+1 
1000  HOVE  E,F 

1010  IF  C<>9  AND  C0 17  THEN  1030 
1020  PRINT 
1030  PRINT  " 

1040  GIN  E,F 
1045  INPUT  2$ 

1050  GO  TO  LEN(Z$)+1  OF  1262,1120 
1060  FOR  K=1  TO  5 
1070  PRINT  @32,21:3,1 

1080  PRI  "iiERROR:  THE  DATA  CODE  ENTERED  IS  NOT  ON  THIS  PAGE;  PLEASE  RE"; 
1090  PRINT  "-ENTER  !K" 

1100  NEXT  K 
1110  GO  TO  990 
1120  y$=SEG(Z$,1  ,1) 

1130  IF  ASC(Y$)<48  OR  ASC(Y$)>56  THEN  1060 
1140  Z=VAL(Z$) 

1190  V$=SEG(L$,(Z+112)»4+1  ,2) 

1200  V/$=SEG(L$,(Z+112)*4+3,2) 

1210  V1=VAL(V$) 

1220  Vn=VAL(W$) 

■  1230  GOSUB  8000 
1240  GOSUB  5000 
1250  GO  TO  990 

■  1262  FOR  1=1  TO  113 
1270  IF  P(I)=0  THEM  1360 
1310  E$=SEG(L$,(I-1)*4+1 ,2) 

1313  IF  E4="00"  THEN  1360 
1320  F$=SEG(L$,(I-1)*4+3,2) 

1330  E=VAL(E$) 

1340  F=VAL(F$) 

1350  A6=A6*(E/F) 

1360  NEXT  I 
1370  A7=A6/(A6+1) 

1380  D(1)=100-100»A7 
1390  D(2)=100*A7 
1400  GO  TO  420 
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PA^inti  hLitoAy  ^oA 

£Xvz/diz  dtiptay 


PAinti  physical  -iymptom^  ^oa 
tivz/d-iz  display 


PAinti  "■i-imubZa.te.d  c.cu>e." 
wh.e.n  appAopAlcutt 


PA-int6  i-Cvz/d-ie.  pAobab-iZ-ctiu 
[GAophici  ioA  boAgAophl 


VACW06  boA^Aaph 


Add-6  additioyiat  Aijmptom  -input 
to.  ccu>e.  m&moAy  -i^ing 


V-Liptay  mKt  A.nWLac.ti.on 
choicu. 


Save-6  updated  ca-ic  countCA 
and  updated  ca-ie  tnemoAy  -itA-ing 


litIO  FOH  1=1  TO  67 

1H20  IF  P(I)=0  THEN  11510 

1H30  Z$=SEG(U$,30»(I-1)+l  ,30) 

11150  Q$=SEG(L$,(I-l)»H-i-1  ,2) 

1470  IF  Q$="00"  THEU  1490 
1480  PRINT  "  »";Z$ 

1484  GO  TO  1510 
1490  PRINT  "  ";Z$ 

1510  NEXT  I 

1511  FOR  1=1  TO  8 

1512  IF  P6(I)=0  THEN  1515 

1513  Z$=SEG(L$,(I-1)»30+517  ,30) 

1514  PRINT  '■  »";Z$ 

1515  NEXT  I 

1519  PRINT  @32,21 :0,83 

1520  FOR  1=68  TO  113 
1530  IF  P(I)=0  THEN  1620 
1540  Z$=SEG(B$,(I-1)»30+1  ,30) 

1560  Q$=SEG(U,(I-1)*4+1  ,2) 

1580  IF  Q$="00"  THEN  1600 

1590  PRINT  USING  "27T, FA, FA": ;Z$ 

1595  GO  TO  1620 

1600  PRINT  USING  "28T,FA":Z$ 

1620  NEXT  I 
1623  PRINT 

1630  IF  0$=«N"  OR  0$="n"  THEN  1660 
1640  PRINT  @32,21  :32.8,15.7 
1650  PRINT  "SIMULATED  CASE" 

1660  PRINT  @32,21:2.4,11.5 
1670  IMAGE  10D.1D,"?",21D.1D,"J" 

1680  PRINT  USING  1670:D(1) ,D(2) 

1690  PRINT  "  DIE  EVEN  IN  HOSPITAL  LIVE  IN  HOSPITAL" 

1700  GO  TO  720 

1710  PRINT  "  DIE  LIVE" 

1715  J1=0.75 

1720  FOR  1=1  TO. 2 

1730  IF  D(I)<1  THEN  1785 

1740  PRINT  @32,21  :97.4+J1*8, 52 

1750  FOR  K=0  TO  2.64  STEP.  0.33 

1760  PRINT  e32,20:97.4+J1«6+K,52+D(I)»0.4 

1770  PRINT  e32,20:97.6+J1*8+K,52+D(I)»0.4,97.6+J1«8+K,52 

1780  NEXT  K 

1785  J1=J1-^1.25 

1790  NEXT  I 

1792  FOR  1=1  TO  8 

1794  T$=CHR(P6(I)) 

1796  J$=J$&T$ 

1798  NEXT  I 

1800  PRI  "  .JJJJIIIHHtJEXT  INTERACTION  JIIIHH1  .  Obtain  definition  IIIHH" 
1810  PRINT  "2.  Display  treatment  IIIHHR.  Another  diagnosis"; 

1820  PRINT  "  IIIHH4.  End  interaction" 

1821  FIND  13 

1822  WRITE  H$,Q,J$,P4 

1823  CLOSE 

1824  IF  Q(7)+Q(6)>560  THEN  1835 

1825  FIND  14-^INT((Q(7)+Q(8))/40) 

1826  ON  EOF  (0)  THEM  1829 
1327  READ  e33:Z$ 

1828  GO  TO  1827 

1829  WRITE  J$ 

1830  CLOSE 
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Flow  dinecton-i 


CalculateJ)  Aunning  pAopabiiitiej, 
^OA  live /die 


FincU  cooAdinateA  ^OA 
dAOMing  hexagAami 


Vaoma,  hexagAom  oa  ound 
Jtymptom  numbeJi-i 


VAawt  "X"  tkAough  tymptom 
numbeA-i 


CleoA-i  memoAy  and  AetuAnj> 
to  diagno-itic  pAOgAom 


1835  PRIMT  "  IIIHHCHOICE: 

I8lf0  INPUT  y$ 

1850  IF  LEK(y$)<>1  THEM  1830 

1860  IF  ASC(y$)<l19  OR  ASC(Y$)>52  THEN  1830 

1870  IF  Y$="H"  THra  1900 

1880  IF  y$="1"  OR  Y$='»2"  THEM  9000 

1881  Y$='>it" 

1882  GO  TO  9000 
1900  PAGE 

1910  END 

5000  IF  P6(Z)=1  THEN  5040 

5010  P6(Z)=1 

5020  A6=A6«(V1/W1) 

5030  RETURN 
5040  A6=A6/(  V1/W1) 

5045  P6(Z)=0 
5050  RETURN 

8000  Z$=SEG(L$,(Z-1)*4+485,1) 

8010  V=ASC(Z$) 

8020  Z$=SEG(L$,(Z-1  )*4+466,1) 

8030  V=V+ASC{Z$)/100 

8040  Z$=SEG(L$,(Z-1) *4+4 87,1) 

8050  Vf=ASC(Z$) 

8060  Z$=SEG(L$,(Z-1)»4+486,1) 

8070  W=W+ASC(Z$)/100 
8080  IF  P6(Z)=1  then  8170 
6100  FOR  K=1  TO  3 
8110  W=W+0.25 

8120  PRINT  @32,21 :V-3.4,W-0.65 

8130  PRINT  e32,20:V-3.4,W+1 .85  ,  V-0  .9  ,W+3 .35 ,  V+2 .1  ,V/+3  .35  ,V+4  .6  ,W+1 .85 
8140  PRINT  e32,20;V+4.6,U-0.65,V+2.1  ,W-2.15,V-0.9,W-2..15,V-3.4,W-0.65 
8150  NEXT  K 
8160  RETURN 

8170  PRINT  @32,21 :V+0. 4, W+1 

8l80  PRI  @32,20:V+4.4,W+5,V+4.6,W+4.8,V-3.2,W-3.1  ,V-3.4,W-2.9,V+0.4,W+1 

8190  PRI  @32,20:V-3.4,H+4.8,V-3.2,W+5,V+4.6,W-2.9,V+4.4,W-3.1  ,V+0.4,W+1 

8200  RETURN 

9000  DELETE  100,8999 

9005  DELETE  C$,P$,L$, P7 , P5 ,P6 ,D2 

9010  FIND  10 

9020  CALL  "LINK", 240 


PROGRAM  8  -  PROGNOSTIC  PROBABILITIES  AND  DISPLAY  PAGE 


Program  8  contains  three  binary  data  strings  (C$ ,  P$,  L$). 

The  first  string  contains  probabilities  for  the  calculation  of 
prognostic  problems  (No  problems,  Arrythmia,  and  Pump  failure) . 

The  probabilities  are  stored  in  segments  of  6  characters;  two 
characters  for  each  problem  category.  ■  The  conditional  probabilities 
cannot  be  released  at  this  time. 

The  second  string  (P$)  contains  one  display  page  string.  This 
page  requests  data  from  the  user  for  three  additional  symptom 
categories.  The  user's  responses  are  employed  in  the  calculation 
of  probabilities  that  the  patient  will  live  or  die  even  if  placed 
in  a  hospital. 


DISPLAY  PAGE  STRING 
LIFE/DEATH  Probabilities: 

BODY  BUILD: 

NORMAL - (1)  OBESE - (2) 

CORPSMAN  OPINION  OF  PATIENT'S  CONDITION: 
GOOD - (3)  DUBIOUS - (4) 

DURATION  OF  PAIN  (refined) : 

<6  HR - (6)  6-24  HR— (7) 


POOR - (5) 

>24  HR - (8) 


The  third  string  (L$)  contains  conditional  probabilities  for 
the  calculation  of  live/die  probabilities  (conditional  probabilities 
cannot  be  released  at  this  time) ,  symptom  names  used  by  the  program, 
and  coordinates  that  identify  the  location  of  item  numbers  on  the 
display  page.  Each  coordinate  is  composed  of  two  characters  which, 
when  converted  to  'real.'  numbers  are  separated  by  a  decimal  point  to 
yield  the  exact  location  of  each  datasheet  item  number  on  the  display 
screen. 
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